关于处理apache日志url重复后字节相加的问题

Crisewng

1. #!/usr/bin/perl                                                                                                                                       
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. use Data::Dumper;
   
6. 
   
7. my @info;
   
8. my %hash=();
   
9. my $b;
   
10. while (my $line = <DATA>) {
    
11.     @info = split /\s+/,$line;
    
12.      my($url,$byte) = ($info[6],$info[9]);
    
13.      $hash{$url} +=$byte;
    
14.      print "$url\t$hash{$url}\n";
    
15. }
    
16. 
    
17. 
    
18. __DATA__
    
19. 192.168.0.151 - - [07/Nov/2012:19:47:34 +0800] "GET /php/js/messages.php?lang=en&db=&token=1b71fd2fb26e4cd28d35e229db661d0c HTTP/1.1" 200 16554
    
20. 192.168.0.151 - - [07/Nov/2012:19:47:34 +0800] "GET /php/themes/pmahomme/img/logo_right.png HTTP/1.1" 200 4548
    
21. 192.168.0.151 - - [07/Nov/2012:19:47:34 +0800] "GET /php/themes/pmahomme/img/input_bg.gif HTTP/1.1" 200 170
    
22. 192.168.0.151 - - [07/Nov/2012:19:47:34 +0800] "GET /php/themes/dot.gif HTTP/1.1" 200 43
    
23. 192.168.0.151 - - [07/Nov/2012:19:47:34 +0800] "GET /php/themes/pmahomme/img/sprites.png HTTP/1.1" 200 38291
    
24. 192.168.0.151 - - [07/Nov/2012:19:47:34 +0800] "GET /php/themes/pmahomme/img/s_error.png HTTP/1.1" 200 664
    
25. 192.168.0.151 - - [07/Nov/2012:19:47:34 +0800] "GET /php/themes/pmahomme/img/s_error.png HTTP/1.1" 200 629
    

复制代码

这个是重复的 /php/themes/pmahomme/img/s_error.png 所以想相加后边 664和629 。我这样写的结果不对，请大家棒棒忙。。

应该是用hash但是一直不知道怎么使用

Crisewng

while(my($k,$v) = each %hash) {
    print "$k\t$v\n";
}
解决了。。