Perl Regexp插值

Question

我有一些代码:

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

我明白了abcf\1d,但我怎么abcfed办？

Answer 1

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

请注意,有两个e修饰符/gee; 第二个将"f$1d"字符串计算为fed.

作为旁注,您不需要,/g因为您只替换一个模式.