如何在Perl中插入整个匹配的文本替换?

nxagd54h  于 8个月前  发布在  Perl
关注(0)|答案(1)|浏览(73)

我想在所有特定的字符串(bbc)之后添加一个字符串(A)。所以,我匹配bbc,并想用附加的A'aabbcc' => 'aabbcAc')替换它本身。
是否有一个替换的反向引用被整个匹配替换?
$0似乎不起作用-其内容总是“-e”,出于某种原因:$ echo 'aabbcc' | perl -p -e 's/bbc/$0A/g' aa-eAc

9q78igpj

9q78igpj1#

使用$&,请参阅https://perldoc.perl.org/perlvar#$&

$ echo 'aabbcc' | perl -p -e 's/bbc/$&A/g'
aabbcAc

相关问题