求助大神，小弟写了个删除重复行的程序，但不知道哪里出错了。

yanglc2013

红色矩形和蓝色矩形的内容完全相同 才算重复。

1. #!/usr/bin/perl
   
2. open(IN,$ARGV[0]);
   
3. open(OUT,">$ARGV[1]");
   
4. while(<IN>){
   
5. chomp;
   
6. if ( /^\>.*/){              
   
7. $hash{$a_}="";             #如果匹配存入哈希。
   
8. $spin=0;                        #假设一个开关
   
9. }
   
10. if (exists($hash{$a_})){    #往下读取数据时，发现已经存在，则开关为0
    
11. $spin=0;
    
12. } else {
    
13. $spin=1
    
14. }
    
15. print $hash{$a_} if ($spin) #输出，如果开关为真。
    
16. }
    

复制代码

只是一个红薯

1. use strict;

复制代码

回复 1# yanglc2013


   

rubyish

如果:
红色矩形和蓝色矩形的内容完全相同 才算重复??

1. #!/usr/bin/perl
   
2. my %h;
   
3. while (<DATA>){
   
4.     my $l = $_ . <DATA>;
   
5.     print $l unless $h{$l}++;
   
6. }
   
7. __DATA__
   
8. >a123
   
9. ABCDEFG
   
10. >a124
    
11. ABCDEFG
    
12. >b234
    
13. BCDEFGH
    
14. >b234
    
15. BCDEFGH
    
16. >c345
    
17. CDEFGHI

复制代码

1. >a123
   
2. ABCDEFG
   
3. >a124
   
4. ABCDEFG
   
5. >b234
   
6. BCDEFGH
   
7. >c345
   
8. CDEFGHI
   

复制代码

dahe_1984

$hash{$1} 就搞定了如果完全相同