在Perl的帮助下更改文本

Question

我希望在Perl的帮助下更改一些文本。我想找到字符串“#blah bla blah” - 取消注释它并在此字符串后添加字符串“abсhhhh”，“dddd ccccc”。我怎么能在/ m，/ s或..的帮助下做到这一点？

Answer 1

这应该取消注释并将$suffix添加到结尾：

my $suffix = 'abс hhhh dddd ccccc';
$string =~ s{#(blah bla blah)}{$1 $suffix}g;

更多信息位于perldoc perlre和perldoc perlretut。

Answer 2

use strict; use warnings;

while (<>) {
     s/^#(blah bla blah)/$1 abс hhhh dddd ccccc/;
}

Answer 3

假设您拥有的文字位于变量$text：

中

$text =~ s/(#blah bla blah)/$1 abс hhhh dddd ccccc/g;

Answer 4

perl -pi -e 's/^#blah bla blah/blah bla blah abс hhhh dddd ccccc/g' your_file