如何在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/gee

p $res

  1234

不过要小心。这导致eval发生两层e，在正则表达式的末尾各一层：

$ sub-> $ 1

$ 1->最终值，例如1234