String Perl字符串修改

假设我有一个名为hello.txt的文件，其中包含“hello World！”。 如果我想制作一个脚本，打开文件并读取内容（我知道怎么做），然后向字符串中添加内容，我该怎么做呢

---

例如：Hello World将在字符串/内容的开头插入“..”，然后每隔2个字符插入一次，但结尾除外。还考虑到内容不一定是“hello World”。

既然你已经知道如何从文件中读取，我认为你唯一的真正问题是如何在每个给定字符串的每2个字符之后添加<代码> ./COD>：

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

输出：

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

尽管我无法想象这会有什么用处

---

正则表达式使用负前瞻查找字符串的开头或两个不后跟字符串结尾的字符，并将所有匹配项替换为后跟两个句点的捕获字符。

非常感谢。还有一个问题，假设HelloWorld已全部附加，这将输出。。最后。有什么办法可以防止这种情况发生吗？@DavidG：我在写我最初的答案之前错过了这一部分。在我修改后的答案中添加了对字符串结尾的消极展望，避免了这种情况。