来自哈希的Perl正则表达式替换

发布时间：2020-12-15 22:03:14 所属栏目：大数据来源：网络整理

导读：有没有一种有效的方法来替代一串使用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); 有没有办法在P

有没有一种有效的方法来替代一串使用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中完成上述工作？

解决方法

第一个问题：你确定你有什么效率不高吗？

第二,最明显的下一步是将所有内容都转化为单个正则表达式：

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

然后你可以做以下替代：

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

这可能仍然是“缓慢的”与正确目录引擎必须不断重新检查相同的字母键的足够重叠.您可以使用像Regexp::Optimizer这样的东西来消除重叠.但是,优化的成本可能超过只做任何事情的成本,具体取决于修改的次数(密钥/值)以及修改的行数.过早优化 – ！

请注意,当然,您的示例代码在替换后没有对文本做任何事情.它不会原位修改文件,所以我假设你单独处理.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!