Perl 利用hash 数组累加

[root@june3 ~]# cat a2.pl 
%log;
foreach (1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,5,6) {
print "\$log{$_} is $log{$_} \n";
$log{$_}++;
};
while(my($ip, $times) = each %log) {
     print "$ip  $times\n";
     }

[root@june3 ~]# perl a2.pl 
$log{1} is  
$log{1} is 1 
$log{1} is 2 
$log{2} is  
$log{2} is 1 
$log{2} is 2 
$log{2} is 3 
$log{2} is 4 
$log{2} is 5 
$log{3} is  
$log{3} is 1 
$log{3} is 2 
$log{3} is 3 
$log{3} is 4 
$log{3} is 5 
$log{4} is  
$log{5} is  
$log{6} is  
6  1
4  1
1  3
3  6
2  6
5  1


##使用hash数组  
my  %hash=("1","HOST",    
        "2","FILESYSTEM",    
        "3","TYPE",  
        "4","SIZE#",  
        "5","USED",  
        "6","AVAIL",  
        "7","USE",  
        "8","MOUNTED",  
        "9","SYSDATE");   
foreach  $key (sort keys %hash)  
  
{    my $var = $hash{$key};  
    print "\$var is  $var\n";  
          
     my $tmp_label = $table->Label(-text =>  $var, -width => 20, -relief =>'raised');  
  
     ##放到第0行 第N列  
  $table->put(0, $key, $tmp_label);  
}