使用变量作为正则表达式替换参数

Question

我一直在进行一些搜索，但没有找到答案。为什么这不起作用？

    $self->{W_CONTENT} =~ /$regex/;
    print $1; #is there a value? YES
    $store{URL} =~ s/$param/$1/;

是的，1 美元有价值。 $param 被替换，但它什么也没替换。我确信 1 美元有价值。如果我用文本替换而不是“$1”，它就可以正常工作。请帮忙！

Answer 1

要使 $1 具有值，您需要确保 $param 中包含括号 ()。即以下问题与您所解释的类似。

my $fred = "Fred";
$fred =~ s/red/$1/;
# $fred will now be "F"

但这是可行的

my $fred = "Fred";
$fred =~ s/r(ed)/$1/;
# $fred will now be "Fed"

。现在，如果您想在第二个正则表达式中使用第一个正则表达式中的 $1 ，则需要复制它。每个正则表达式评估都会重置 $1 ... $&。所以你想要这样的东西：

$self->{W_CONTENT} =~ /$regex/;
print $1; #is there a value? YES
my $old1 = $1;
$store{URL} =~ s/$param/$old1/;

Answer 2

表达式内部不应使用诸如 $1 之类的反向引用；您可以使用不同的表示法 - 有关概述，请查看 Perl 正则表达式快速入门。

考虑获取 $1 的值并将其存储在另一个变量中，然后在正则表达式中使用该变量。