regex - Perl:使用变量传递正则表达式搜索和替换

Question

我有一个 Perl 脚本，它读取正则表达式搜索并替换 INI 文件中的值。

这工作正常，直到我尝试使用捕获变量($1 或\1)。这些被替换为 $1 或\1。

任何想法如何让这个捕获功能通过变量传递正则表达式位？示例代码(不使用 ini 文件)...

$test = "word1 word2 servername summary message";

$search = q((\S+)\s+(summary message));
$replace = q(GENERIC $4);

$test =~ s/$search/$replace/;
print $test;

这导致...

word1 word2 GENERIC $4

不是

word1 word2 GENERIC summary message

谢谢

Answer 1

使用双重评估:

$search = q((\S+)\s+(summary message));
$replace = '"GENERIC $1"';

$test =~ s/$search/$replace/ee;

注意 $replace 中的双引号和 ee末 s/// .