Perl String Modyifing

Question

Скажем, у меня есть файл с именем hello.txt, который содержит «Hello World!». Если бы я хотел создать скрипт, который открыл бы файл и прочитал его содержимое (я знаю, как это сделать) и добавил что-то в строку, как бы я поступил так?

Например: Hello World вставил бы «..» в начале строки / содержимого, а затем через каждые 2 символа, за исключением конца. Также учтите, что содержимое не всегда будет «Hello World».

Answer 1

Поскольку вы уже знаете, как читать из файла, я полагаю, что ваш единственный реальный вопрос - как добавить .. после каждых 2 символов любой заданной строки:

my $string = "Hello World";
$string =~ s/^|(..)(?!$)/$1../g;
print "$string\n";

Вывод:

..He..ll..o ..Wo..rl..d

Хотя я не представляю, как это было бы полезно.

Регулярное выражение ищет начало строки или два символа, за которыми не следует конец строки, используя отрицательный вид.вперед и заменяет все совпадения на любые захваченные символы, за которыми следуют два периода.