regex - Perlの助けを借りてテキストを変更する

Question

Perlの助けを借りてテキストを変更したい。文字列"#blahbla blah"を見つけたい-コメントを外し、この文字列の後に文字列 "abсhhhh"、"ddddccccc"を追加しました。/ m、/ s、または..の助けを借りてそれを行うにはどうすればよいですか？

Answer 1

$suffixこれにより、コメントが解除され、最後に追加されます。

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

詳細については、perldocperlreおよびperldocperlretutを参照してください。

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