Perl - 用正则表达式上的任意操作替换正则表达式匹配

Question

我的Perl脚本中有以下行：

s/\b(\w+)\b/ $replaces{$1} ? $replaces{$1} : $1 /g;

我想找到字符串中的所有单词，如果单词在已知单词的数组中，则替换它，否则保留它（理想情况下我想在匹配上执行任意操作，而不仅仅是三元运算符）。

为此，我尝试使用三元运算符。 Perl对待？ 和：作为文字符号，只使用变量（如果已定义）将它们连接起来。

如何让Perl处理？：在replace中作为三元运算符？

PS：我知道我可以在下一行代码中对匹配执行操作，但为了清晰起见，我想保留一个衬里。

Answer 1

你需要'e'（执行）限定符：

s/\b(\w+)\b/ $replaces{$1} ? $replaces{$1} : $1 /ge;