regex - 如何延迟替换以从搜索访问 var？

Question

基本上我想这样做:

#!/usr/bin/perl
$search = qr/(?<X>abc)/;
$_ = "123 abc 456";
s/$search/$+{X} $+{X}/;
print;

像这样:

#!/usr/bin/perl
$search = qr/(?<X>abc)/;
$replace = q($+{X} $+{X});
$_ = "123 abc 456";
s/$search/$replace/;
print;

结果应该是 123 abc abc 456 。

是否可以？
$replace 需要作为外部变量进行维护。所以，我不希望内容只是移动到另一个位置。我正在从文件中读取此信息。

Answer 1

弄清楚了。我需要对表达式进行双重评估(感谢@Birei 将我指向正则表达式评估命令。但仍然无法在 perl 文档中找到它......不得不谷歌。:()

所以就变成了:

#!/usr/bin/perl
$search = qr/(?<X>abc)/;
$replace = q(qq($+{X} $+{X}));
$_ = "123 abc 456";
s/$search/$replace/ee;
print;