如何在Perl替换运算符的替换端使用变量？

Question

我要执行以下操作：

$find="start (.*) end";

$replace="foo \1 bar";

$var = "start middle end";

$var =~ s/$find/$replace/;

我希望$ var包含“ foo middle bar”，但它不起作用。都没有：

$replace='foo \1 bar';

不知何故，我缺少有关转义的信息。

我修复了丢失的“ s”

Answer 1

# perl -de 0$match="hi(.*)"$sub='$1'$res="hi1234"$res =~ s/$match/$sub/geep $res  1234不过要小心。这导致eval发生两层e，在正则表达式的末尾各一层：$ sub-> $ 1$ 1->最终值，例如1234