小程序救助，希望大神能帮忙指点，小弟跪谢~~~~

huang6894

回复 1# albertkingking

1. my %h;
   
2. $/=">";
   
3. 
   
4. <DATA>;
   
5. while(<DATA>){
   
6.         chomp;
   
7.         my ($name,@seq) = (split /\n/);
   
8.         my $key = join("",@seq);
   
9.         my $value = (split /\s+/,$name)[-1];
   
10.         $h{length($key)} += $value;
    
11. }
    
12. $/="\n";
    
13. foreach my $k (sort keys %h){
    
14.         print "length=".$k."\tnumber=".$h{$k}.$/;
    
15. }
    
16. __DATA__
    
17. >seq1        12
    
18. CAGCTAGCTACGTCG
    
19. >seq2        22
    
20. CACGATGCTACGTAGCAGCT
    
21. >seq3        2
    
22. CAGCTACGTAGCGAAG
    
23. >seq4        4
    
24. CAGCTAGCGAGCTACG
    
25. >seq5        6
    
26. CACGATCGAGCGTAGCTAGC

复制代码