Question

我的Perl脚本中有以下行：

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

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

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

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

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

Answer 1

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

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