regex - Perl 正则表达式从哈希替代

Question

有没有一种有效的方法来使用 Perl 哈希中的值替换一堆字符串？

例如，

$regex{foo} = "bar";
$regex{hello} = "world";
$regex{python} = "perl";

open(F, "myfile.txt");
while (<F>) {
      foreach $key (keys %regex) {
            s/$key/$regex{$key}/g;
      }
}
close(F);

有没有办法在 Perl 中完成上述操作？

Answer 1

第一个问题:你确定你拥有的东西是低效的吗？

其次，最明显的下一步是将所有内容都放入一个正则表达式中:

my $check = join '|', keys %regex;

然后你可以进行替换:

s/($check)/$regex{$1}/g;

这仍然可能是“缓慢”的，因为键有足够的重叠，正则表达式引擎必须不断地重新检查相同的字母。你可以使用类似 Regexp::Optimizer 的东西以消除重叠。但是优化的成本可能不仅仅是做所有事情的成本，这取决于有多少更改(散列中的键/值)以及您修改了多少行。过早优化——!

请注意，当然，您的示例代码在替换后不会对文本执行任何操作。它不会就地修改文件，所以我假设你是单独处理的。