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

旋转小马

infile：
HWI-ST1106:755:H0V1MADXX:2:2204:4345:52798      99      Cluster_1   
HWI-ST1106:755:H0V1MADXX:2:2214:2460:68727      65      Cluster_1      
HWI-ST1106:755:H0V1MADXX:2:1205:4057:41509      153     Cluster_1   
HWI-ST1106:755:H0V1MADXX:2:2214:5236:82377      153     Cluster_1   
HWI-ST1106:755:H0V1MADXX:2:1202:16871:54180     89      Cluster_1   
HWI-ST1106:755:H0V1MADXX:2:1212:4117:41420      153     Cluster_1      
HWI-ST1106:755:H0V1MADXX:2:2204:4345:52798      147     Cluster_1     
HWI-ST1106:755:H0V1MADXX:2:2115:10141:17608     89      Cluster_10   
HWI-ST1106:755:H0V1MADXX:2:1212:17055:53562     163     Cluster_10   
HWI-ST1106:755:H0V1MADXX:2:2110:14814:19836     163     Cluster_10
HWI-ST1106:755:H0V1MADXX:2:2206:18216:74573     99      Cluster_10
HWI-ST1106:755:H0V1MADXX:2:2113:17626:93067     163     Cluster_10   
HWI-ST1106:755:H0V1MADXX:2:1207:3103:73263      99      Cluster_10   
HWI-ST1106:755:H0V1MADXX:2:1103:7010:88764      163     Cluster_10     
HWI-ST1106:755:H0V1MADXX:2:2111:3039:51639      99      Cluster_10   
HWI-ST1106:755:H0V1MADXX:2:1212:17055:53562     83      Cluster_10     
HWI-ST1106:755:H0V1MADXX:2:1107:5037:38527      163     Cluster_100  
HWI-ST1106:755:H0V1MADXX:2:1111:6627:73408      393     Cluster_100   
HWI-ST1106:755:H0V1MADXX:2:1215:16841:58015     73      Cluster_100  
HWI-ST1106:755:H0V1MADXX:2:1107:5037:38527      83      Cluster_100  
HWI-ST1106:755:H0V1MADXX:2:2203:2962:64393      393     Cluster_100  
HWI-ST1106:755:H0V1MADXX:2:1113:7244:73782      137     Cluster_100   
HWI-ST1106:755:H0V1MADXX:2:1104:14953:2121      163     Cluster_1000  
HWI-ST1106:755:H0V1MADXX:2:1212:12709:69650     153     Cluster_1000  
HWI-ST1106:755:H0V1MADXX:2:1108:11227:4178      99      Cluster_1000  
HWI-ST1106:755:H0V1MADXX:2:2112:18155:78922     99      Cluster_1000  
HWI-ST1106:755:H0V1MADXX:2:1203:2053:36493      99      Cluster_1000   
HWI-ST1106:755:H0V1MADXX:2:1112:20266:62035     163     Cluster_1000   
HWI-ST1106:755:H0V1MADXX:2:2104:3375:35332      89      Cluster_1000   
HWI-ST1106:755:H0V1MADXX:2:1105:17103:16844     153     Cluster_1000   
HWI-ST1106:755:H0V1MADXX:2:1215:2568:63103      89      Cluster_1000   
HWI-ST1106:755:H0V1MADXX:2:2205:3921:94905      129     Cluster_1000   
HWI-ST1106:755:H0V1MADXX:2:2107:17892:33129     89      Cluster_1000
HWI-ST1106:755:H0V1MADXX:2:2112:18155:78922     147     Cluster_1000       -
HWI-ST1106:755:H0V1MADXX:2:1104:14953:2121      83      Cluster_1000   
HWI-ST1106:755:H0V1MADXX:2:1108:11227:4178      147     Cluster_1000   
HWI-ST1106:755:H0V1MADXX:2:1112:20266:62035     83      Cluster_1000   
HWI-ST1106:755:H0V1MADXX:2:1203:2053:36493      147     Cluster_1000  
下面是我写的代码：
1 #!/usr/bin/perl
  2 use strict;
  3 use warnings;
  4 open IN,"hitsok.sam"or die"Can not open IN\n";
  5 open OUT,">oka.xls"or die"Can not open OUT\n";
  6 my (%hash,%chek,%pare);
  7 while(<IN>){
  8         chomp;
  9         my @line=split/\t/,$_;
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         }else{
18            $hash{$line[2]}=1;
19         }
20 }
21 foreach my $key (sort {$hash{$b}<=>$hash{$a}} keys %hash){
22         print OUT "$key\t$hash{$key}\t";
23         if(exists $pare{$key}){
24            print OUT "$pare{$key}\n";
25         }else{
26            print OUT "0\n";
27         }
28 }
29 close IN;
30 close OUT;  
正确的输出结果应该是这样的：
Cluster_1000    16      4
Cluster_10      9       1
Cluster_1       7       1
Cluster_100     6       1
但是我写的代码的输出结果是这样的：
Cluster_1000    16      4
Cluster_10      9       1
Cluster_1       7       0
Cluster_100     6       0
求各位大神、各位高手帮忙找一下错误，万分感谢！！！

pitonas

lz 应该去学会如何提问{:2_179:}

一个简单的例子说明如何提问

http://bbs.chinaunix.net/thread-4111100-1-2.html

旋转小马

好吧，我现在严重怀疑自己的表达能力了，你哪里不明白，我单独说那个地方？
回复 2# pitonas


   

jason680

回复 1# 旋转小马

Add some code for debug, and didn't find  Cluster_1 and Cluster_100

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


$pare{$line[2]}=1, $line[2]=Cluster_10
$pare{$line[2]}=1, $line[2]=Cluster_1000
$pare{$line[2]}=2, $line[2]=Cluster_1000
$pare{$line[2]}=3, $line[2]=Cluster_1000
$pare{$line[2]}=4, $line[2]=Cluster_1000
   

pitonas

如何得到输出结果：
Cluster_1000    16      4
Cluster_10      9       1
Cluster_1       7       1
Cluster_100     6       1

旋转小马

回复 4# jason680
你说的虽然不是全明白，但也明白了一点点，但是怎样修改才能得到我想要的结果呢？？？

   

旋转小马

回复 5# pitonas
问题就在这嘛，我写的代码就是想要得到这个结果，但是为什么程序输出的结果不对，现在就是不知道原因在哪啊？

   

jason680

回复 6# 旋转小马


would you help us to help you?

you didn't describe how to get result and I don't know how to modify.

q1208c

回复 7# 旋转小马

你至少得告诉我们, 你的这个结果是怎么来的吧? 靠大家来猜, 好象对解决问题没什么帮助.

简单的说吧, 你的 正确 输出中, 第一字段, 我可以理解, 就是输入的最后一个字段, 第二个字段, 我猜是 输入最后一个字段的计数, 但你输出的第三个字段, 我实在猜不出来了, 也没看出跟输入有半毛钱关系. 那么, 你让我们怎么帮你呢?

生成这样的输出很容易的, 一条 print就行了.  

1. 
   
2. print qq(
   
3. Cluster_1000    16      4
   
4. Cluster_10      9       1
   
5. Cluster_1       7       1
   
6. Cluster_100     6       1
   
7. );
   

复制代码

只是一个红薯

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]统计不到