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

pitonas

小伙伴们, 告诉我, 输出结果怎样不是{:2_176:}
Cluster_1000    16      5
Cluster_10      9       1
Cluster_1       7       1
Cluster_100     6       1

jzp520520

楼主参照下你上一个贴，我给你的回复，用哈希引用的数据结构，避免用多重IF

旋转小马

回复 9# q1208c
输出文件中的第二列我统计的是输入文件的第三列的每种Cluster_**的个数；
同样的，输出文件的第三列，我想统计的是输入文件中，在每中相同的Cluster_**下，输入文件中的第一列的相同个数；
这样讲，我能讲清楚我的目的吗？
   

旋转小马

回复 8# jason680
输出文件中的第二列我统计的是输入文件的第三列的每种Cluster_**的个数；
同样的，输出文件的第三列，我想统计的是输入文件中，在每中相同的Cluster_**下，输入文件中的第一列的相同个数；
这样讲，我能讲清楚我的目的吗？

   

jason680

回复 14# 旋转小马

modify as below:

        my @line=split/\s+/,$_;
        if(! exists $hash{$line[2]}){
           $hash{$line[2]} = 0;
        }
        $hash{$line[2]}++;

        if(! exists $chek{$line[0]}){
           $chek{$line[0]}=1;
        }
        else{
          $pare{$line[2]}++;
          print "\$pare{\$line[2]}=$pare{$line[2]}, \$line[2]=$line[2]\n"; # for debug
        }

and output data:
$ cat oka.xls
Cluster_1000    16    5
Cluster_10    9    1
Cluster_1    7    1
Cluster_100    6    1

旋转小马

修正一下，正确输出结果就是：
Cluster_1000    16    5
Cluster_10    9    1
Cluster_1    7    1
Cluster_100    6    1
嘿嘿，之前看错了，很不好意思~~~

只是一个红薯

改了下你的

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# 旋转小马