perl中遍历哈希数组

Eva326

写了个代码，为什么输出计数不对呢？请大神指教！

数据：

1. a   b
   
2. 1   -1
   
3. 1   2
   
4. 1   3
   
5. 2   4
   
6. 2   5
   
7. 2   7
   
8. 3   8
   
9. 3   9
   
10. 3   0

复制代码

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. open (IN, "<data.txt") or die $!;
   
5. readline IN;
   
6. 
   
7. my %h;
   
8. while (<IN>){
   
9.         chomp;
   
10.         my ($ID, $value) = split;
    
11.         $h{$ID} = $value;
    
12. }
    
13. 
    
14. print "ID <0 0-5 5-10\n";
    
15. foreach (sort keys %h){
    
16.         my @arr = ($_,0,0,0);
    
17.         $arr[1] ++ if ($h{$_} < 0);
    
18.         $arr[2] ++ if ($h{$_} <5 and $h{$_} >=0);
    
19.         $arr[3] ++ if ($h{$_} <10 and $h{$_} >=5);
    
20.         print "@arr\n";
    
21. }
    
22. 
    
23. 
    
24. close IN;

复制代码

输出：

1. ID <0 0-5 5-10
   
2. 1 0 1 0
   
3. 2 0 0 1
   
4. 3 0 1 0

复制代码