regex - 在 Perl 的帮助下更改文本

Question

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

score 3 · Accepted Answer

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

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

score 0 · Accepted Answer

0

use strict; use warnings;

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

于 2012-11-16T17:32:19.503 回答

score 0 · Accepted Answer

假设您拥有的文本在变量中$text：

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

score 0 · Accepted Answer

0

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

于 2012-11-16T18:12:46.613 回答

4 回答 4