跟踪比赛并检查状况

Question

我有$entire_line = "if varC > 0: varB = varC + 2"

我想我的正则表达式来查找以下内容： varC ， varB ， varB在$entire_line

然后需要检查这些匹配项，以查看它们是否存在于HashMap 。 如果是这样，则应在匹配项后附加$ 。

因此，输出应为：

"if $varC > 0: $varB = $varC + 2"

注意： 0和2不会出现在HashMap 。

目前，我有：

$entire_line =~ s/(\w+)/\$$1/g if (exists($variable_hash{$1}));

但是，这不能按预期方式工作，因为exists($variable_hash{$1})的$1 exists($variable_hash{$1})不引用以前的正则表达式： $entire_line =~ s/(\\w+)/\\$$1/g

有适当的方法来解决这个问题吗？

谢谢你的帮助。

Answer 1

使用/e修饰符，并将代码放入替换部分：

$entire_line =~ s/(\w+)/exists $variable_hash{$1} ? $variable_hash{$1} : $1/ge;

Answer 2

如果我正确地回答了您的问题，并且您不需要执行变量值替换（如@choroba的回答），而只需将$字符附加到已知变量中，并且如果%variables_hash不太长，那么如何串联所有键的%variables_hash带有| 字符以获得与所有已知变量匹配的正则表达式？

my %variable_hash = (
        varA => 1,
#       varB => 1, # commented out to check that it will not be replaced
        varC => 1,
);
my $entire_line = "if varC > 0: varB = varC + 2;"; 

my $key_regex = join('|', map { quotemeta $_; } keys %variable_hash);
# $key_regex will contain "varA|varC"

$entire_line =~ s/\b($key_regex)\b/\$$1/g;
# prefix all matching substrings with $ character

print "$entire_line\n";

还要检查我对@choroba答案的评论。