求高手,如何使用perl提取出两个文件中不同的部分。附上我的代码,只是效率低。处理太慢

yanglc2013

求租,如何使用perl提取出两个文件中不同的部分。

以下是我的代码,只是效率太低,处理起来很慢。

1. 
   
2. #!/usr/bin/perl
   
3. open(IN,$ARGV[0]);
   
4. open(SE,$ARGV[1]);
   
5. open(OUT,">$ARGV[2]");
   
6. @AT2=<SE>;
   
7. foreach my  $t(<IN>){
   
8. print $t unless grep /^$t/,@AT2;
   
9. }
   
10. close IN;
    
11. close SE;
    
12. close OUT;

复制代码

yanglc2013

没有高手指点吗？

zhlong8

你的数据有多少行？对于小文件来说还不错啊

yanglc2013

回复 3# zhlong8
有45062行  但是处理了好几分钟。虽然结果对了。但是您帮我写个其他的程序吗？


   

zhlong8

回复 4# yanglc2013


    你这直接把 @AT2 变成个 hash 用 exists 就可以了吧。

1. %AT2 = map {$_ => 1 } @AT2; print OUT $t if exists $AT2{$t};

复制代码

如果只需要 $t 匹配@AT2 某一行的开头部分，你需要把换行符给 chomp 掉。可以把第二个文件读成一个字符串，用 /^\Q$t\E/m 来匹配。study 现在好像不管用了，否则这里很合适

kk861123

回复 1# yanglc2013


     你的程序也貌似只在第一个文件中查找与第二文件不同的部分吧？那第二个文件与第一个文件中不同的部分呢？

yanglc2013

回复 5# zhlong8
实乃初学者，不太明白啊。大师怎么改？


   

yanglc2013

回复 6# kk861123
第一个文件是个库，包含了所有的数据。


   

yanglc2013

回复 5# zhlong8
而且 我要输出的是不同的部分。


   

kk861123

回复 8# yanglc2013


    oh，我给你改一下，不是很明白对比的是什么东西，你先试试吧：

1. #!/usr/bin/perl
   
2. open(IN,$ARGV[0]);
   
3. open(SE,$ARGV[1]);
   
4. open(OUT,">$ARGV[2]");
   
5. 
   
6. my %m;
   
7. $m{$_}++ while <SE>;
   
8. while ( <IN> ){
   
9.     print OUT $_ unless exists $m{$_};
   
10. }
    
11. 
    
12. close IN;
    
13. close SE;
    
14. close OUT;

复制代码