我写的代码最后的输出结果有问题，不知道出在哪里，求大神帮忙指教一下，帮我改一下，

只是一个红薯

10         if(exists $hash{$line[2]}){
11            $hash{$line[2]}++;
12            if(exists $chek{$line[0]}){
13               $pare{$line[2]}++;
14            }else{
15               $chek{$line[0]}=1;
16            }
17         }
第二个if写在第一个if里面是有问题的，导致第一个$line[0]统计不到

只是一个红薯

改了下你的

1. use 5.016;
   
2. use autodie;
   
3. use strict;
   
4. use Data::Dumper;
   
5. my (%hash,%chek,%pare);
   
6. while(<DATA>){
   
7.          chomp;
   
8.          my ($aa,$bb,$cc)=split/\s+/,$_;
   
9.          push @{$chek{$cc}},$aa;
   
10.          if($hash{$cc}){
    
11.             $hash{$cc}++;
    
12.          }else{
    
13.             $hash{$cc}=1;
    
14.         }
    
15. }
    
16. foreach my $key (sort {$hash{$b}<=>$hash{$a}} keys %hash){
    
17.          print  "$key\t$hash{$key}\t";
    
18.     say (my $gg= grep($pare{$_}++ ,@{$chek{$key}}));
    
19.       
    
20. }
    
21. __DATA__
    
22. HWI-ST1106:755:H0V1MADXX:2:2204:4345:52798      99      Cluster_1   
    
23. HWI-ST1106:755:H0V1MADXX:2:2214:2460:68727      65      Cluster_1      
    
24. HWI-ST1106:755:H0V1MADXX:2:1205:4057:41509      153     Cluster_1   
    
25. HWI-ST1106:755:H0V1MADXX:2:2214:5236:82377      153     Cluster_1   
    
26. HWI-ST1106:755:H0V1MADXX:2:1202:16871:54180     89      Cluster_1   
    
27. HWI-ST1106:755:H0V1MADXX:2:1212:4117:41420      153     Cluster_1      
    
28. HWI-ST1106:755:H0V1MADXX:2:2204:4345:52798      147     Cluster_1     
    
29. HWI-ST1106:755:H0V1MADXX:2:2115:10141:17608     89      Cluster_10   
    
30. HWI-ST1106:755:H0V1MADXX:2:1212:17055:53562     163     Cluster_10   
    
31. HWI-ST1106:755:H0V1MADXX:2:2110:14814:19836     163     Cluster_10
    
32. HWI-ST1106:755:H0V1MADXX:2:2206:18216:74573     99      Cluster_10
    
33. HWI-ST1106:755:H0V1MADXX:2:2113:17626:93067     163     Cluster_10   
    
34. HWI-ST1106:755:H0V1MADXX:2:1207:3103:73263      99      Cluster_10   
    
35. HWI-ST1106:755:H0V1MADXX:2:1103:7010:88764      163     Cluster_10     
    
36. HWI-ST1106:755:H0V1MADXX:2:2111:3039:51639      99      Cluster_10   
    
37. HWI-ST1106:755:H0V1MADXX:2:1212:17055:53562     83      Cluster_10     
    
38. HWI-ST1106:755:H0V1MADXX:2:1107:5037:38527      163     Cluster_100  
    
39. HWI-ST1106:755:H0V1MADXX:2:1111:6627:73408      393     Cluster_100   
    
40. HWI-ST1106:755:H0V1MADXX:2:1215:16841:58015     73      Cluster_100  
    
41. HWI-ST1106:755:H0V1MADXX:2:1107:5037:38527      83      Cluster_100  
    
42. HWI-ST1106:755:H0V1MADXX:2:2203:2962:64393      393     Cluster_100  
    
43. HWI-ST1106:755:H0V1MADXX:2:1113:7244:73782      137     Cluster_100   
    
44. HWI-ST1106:755:H0V1MADXX:2:1104:14953:2121      163     Cluster_1000  
    
45. HWI-ST1106:755:H0V1MADXX:2:1212:12709:69650     153     Cluster_1000  
    
46. HWI-ST1106:755:H0V1MADXX:2:1108:11227:4178      99      Cluster_1000  
    
47. HWI-ST1106:755:H0V1MADXX:2:2112:18155:78922     99      Cluster_1000  
    
48. HWI-ST1106:755:H0V1MADXX:2:1203:2053:36493      99      Cluster_1000   
    
49. HWI-ST1106:755:H0V1MADXX:2:1112:20266:62035     163     Cluster_1000   
    
50. HWI-ST1106:755:H0V1MADXX:2:2104:3375:35332      89      Cluster_1000   
    
51. HWI-ST1106:755:H0V1MADXX:2:1105:17103:16844     153     Cluster_1000   
    
52. HWI-ST1106:755:H0V1MADXX:2:1215:2568:63103      89      Cluster_1000   
    
53. HWI-ST1106:755:H0V1MADXX:2:2205:3921:94905      129     Cluster_1000   
    
54. HWI-ST1106:755:H0V1MADXX:2:2107:17892:33129     89      Cluster_1000
    
55. HWI-ST1106:755:H0V1MADXX:2:2112:18155:78922     147     Cluster_1000
    
56. HWI-ST1106:755:H0V1MADXX:2:1104:14953:2121      83      Cluster_1000   
    
57. HWI-ST1106:755:H0V1MADXX:2:1108:11227:4178      147     Cluster_1000   
    
58. HWI-ST1106:755:H0V1MADXX:2:1112:20266:62035     83      Cluster_1000   
    
59. HWI-ST1106:755:H0V1MADXX:2:1203:2053:36493      147     Cluster_1000

复制代码

回复 1# 旋转小马