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

Question

我想在所有特定的其他字符串（A）之后添加一个字符串（bbc）。因此，我匹配bbc并希望将其替换为A附加（'aabbcc' => 'aabbcAc'）。

是否有替换后的引用被整个匹配替换？

$0似乎不起作用 - 由于某些原因，其内容始终为“-e”： $ echo 'aabbcc' | perl -p -e 's/bbc/$0A/g' aa-eAc

Answer 1

使用$&，请参阅http://perldoc.perl.org/perlvar.html

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

  

aabbcAc