regex - Perl 正则表达式插值

我有一些代码:

$a = 'abcdef';
$b = 'f\1d';
$a =~ s/d(e)f/$b/g;
print $a;

我得到 abcf\1d ，但我怎样才能得到 abcfed ？

最佳答案

$a = 'abcdef';
$b = '"f$1d"';
$a =~ s/d(e)f/$b/gee;
print $a;

注意 e 中有两个 /gee 修饰符；第二个将 "f$1d" 字符串计算为 fed 。

作为旁注，您不需要 /g 因为您只替换一个模式出现。

关于regex - Perl 正则表达式插值，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/20488813/