请教一个识别后删除的问题

iamlimeng

回复 3# Monox


3楼的代码非常好，简洁、高效，但我觉得第4行的匹配可以不要，直接利用第2行的匹配结果，减少运算。在数据量很大的情况下，能提高一点点效率。

8楼的虽然也很好，但数量很大的时候，效率会是问题。

yilong777jp

Monox

回复 11# iamlimeng
怎么利用第二行的结果？我的理解是，事实上这个 if 是一个循环，第四行好像只能在循环的最后执行吧。第四行的匹配不是为了提取 /end 后面的串，而是为了判断是否到了循环的最后。所以，我不知道如何利用第二行的结果，或者说，我认为第四行不能省略。

iamlimeng

回复 13# Monox

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my ($key,%hash);
   
7. while (<DATA>) {
   
8.         if (m#/begin (\w+)# .. m#/end ($1)#) {
   
9.             print unless $hash{$1};
   
10.             $key = $1;
    
11.         }
    
12.         else {
    
13.             $hash{$key} = 1 if ($key);
    
14.              print;
    
15.         }
    
16. }

复制代码

不如你的程序简洁，但可以少用正则。曾有高手说在处理大量数据的时候，尽量少用正则，因为会在一定程度上影响效率。不过我没测试过，请做过测试的出来总结一下。