我寫的代碼最后的輸出結(jié)果有問題，不知道出在哪里，求大神幫忙指教一下，幫我改一下，

pitonas

小伙伴們, 告訴我, 輸出結(jié)果怎樣不是{:2_176:}
Cluster_1000    16      5
Cluster_10      9       1
Cluster_1       7       1
Cluster_100     6       1

jzp520520

樓主參照下你上一個貼，我給你的回復(fù)，用哈希引用的數(shù)據(jù)結(jié)構(gòu)，避免用多重IF

旋轉(zhuǎn)小馬

回復(fù) 9# q1208c
輸出文件中的第二列我統(tǒng)計的是輸入文件的第三列的每種Cluster_**的個數(shù)；
同樣的，輸出文件的第三列，我想統(tǒng)計的是輸入文件中，在每中相同的Cluster_**下，輸入文件中的第一列的相同個數(shù)；
這樣講，我能講清楚我的目的嗎？
   

旋轉(zhuǎn)小馬

回復(fù) 8# jason680
輸出文件中的第二列我統(tǒng)計的是輸入文件的第三列的每種Cluster_**的個數(shù)；
同樣的，輸出文件的第三列，我想統(tǒng)計的是輸入文件中，在每中相同的Cluster_**下，輸入文件中的第一列的相同個數(shù)；
這樣講，我能講清楚我的目的嗎？

   

jason680

回復(fù) 14# 旋轉(zhuǎn)小馬

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

旋轉(zhuǎn)小馬

修正一下，正確輸出結(jié)果就是：
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

復(fù)制代碼

回復(fù) 1# 旋轉(zhuǎn)小馬