關(guān)于處理apache日志url重復(fù)后字節(jié)相加的問題

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
    

復(fù)制代碼

這個(gè)是重復(fù)的 /php/themes/pmahomme/img/s_error.png 所以想相加后邊 664和629 。我這樣寫的結(jié)果不對(duì)，請(qǐng)大家棒棒忙。。

應(yīng)該是用hash但是一直不知道怎么使用

Crisewng

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