请教Perl哈希：

Eva326

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. open (IN, "<1.txt") or die $!;
   
5. my %hash;
   
6. while(<IN>){
   
7.         chomp;
   
8.         my ($ID, $value) = split;
   
9.         next unless $value =~ /[0-9]/;
   
10.         $hash{$ID} += $value;
    
11. }
    
12. foreach (keys %hash){
    
13.         print "$_\t$hash{$_}\n";
    
14. }
    

复制代码

1. #!/usr/bin/perl -w
   
2. use strict;
   
3. 
   
4. open (IN, "<1.txt") or die $!;
   
5. readline IN;
   
6. my %hash;
   
7. while(<IN>){
   
8.         chomp;
   
9.         my ($ID, $value) = split;
   
10.         $hash{$ID} += $value;
    
11. }
    
12. foreach (keys %hash){
    
13.        print "$_\t$hash{$_}\n";
    
14. }
    

复制代码