运行结果报错

蚊仔perlperl

把 Dumper 移出while,可以了吧

1. #!/usr/bin/perl -w
   
2. use Data::Dumper;
   
3. 
   
4. $/=">";
   
5. my %unqs;
   
6. 
   
7. while (<DATA>){
   
8.         chomp;
   
9.         next if (m/^s*>/);
   
10.      my @line = (split /\n/,$_,2);
    
11.      $unqs{$line[0]}=$line[1] if (length($line[1]) > length($unqs{$line[0]}));
    
12. 
    
13. }
    
14. print Dumper(%unqs);
    
15. 
    
16. __DATA__
    
17. >test1
    
18. GAGATGCAATCTTCGCAGCTAGG
    
19. >test2
    
20. GAGATGAAACAACGAGGGAAACGATGTT
    
21. >test1
    
22. AGAGCAGTG
    
23. >test3
    
24. AACGATGTTTGTGTATACCAAAAGCAATAAC
    
25. >test1
    
26. GCAATCTTCGCAGCTAGGCGAAAGGGAGATGAAACAACGA

复制代码