求助,求日志文件里指定列以及尾值之和

lockeyou

180.153.120.57                2201        222.73.112.230                80                3
180.153.120.57                2202        222.73.112.230                80                5
180.153.120.57                2203        222.73.112.230            80            9
180.153.120.101        9801        221.204.169.127        33940        4
180.153.120.101        9801        221.204.169.127        37128        4
180.153.120.101        9801        221.204.169.127        3057                4
180.153.120.101        9801        221.204.169.127        33940        4
180.153.120.101        9801        221.204.169.127        37128        4

上面是data1.log

想要生成文件res.log
180.153.120.57           222.73.112.230        17      3
180.153.120.101  221.204.169.127           20      4

具体理解可以为第二第四列不管.统计第一第三列相同的ip值,并且求出第五列值之和 后面再添加有几行这样的数据
嘿嘿,分不多.不知道有没有朋友做过类似的日志处理

kggg

#!/usr/bin/perl

use strict;
use warnings;

my (%hash, %i);

for(<DATA>){
    /(\S+)\s+\d+\s+(\S+)\s+\d+\s+(\S+)/;
    $hash{$1}{$2} += $3;
    $i{$1}{$2}++;
}
for my $key (keys %hash and keys %i){
     for  (keys $hash{$key}){
             print "$key\t $_ \t$hash{$key}{$_}\t $i{$key}{$_}\n";
     }
}



__DATA__
180.153.120.57         2201        222.73.112.230           80                3
180.153.120.57         2202        222.73.112.230           80                5
180.153.120.57         2203        222.73.112.230            80            9
180.153.120.101        9801        221.204.169.127        33940        4
180.153.120.101        9801        211.155.101.163        37128        4
180.153.120.101        9801        115.238.240.185        3057                4
180.153.120.101        9801        211.155.101.163        33940        4
180.153.120.101        9801        221.204.169.127        37128        4

yestreenstars

1. $ perl -lane '$s{$F[0]}{$F[2]}+=$F[4];$t{$F[0]}{$F[2]}++;END{for $k (keys %s){for (keys %{$s{$k}}){print join "\t",$k,$_,$s{$k}{$_},$t{$k}{$_}}}}' i
   
2. 180.153.120.101 221.204.169.127 20      5
   
3. 180.153.120.57  222.73.112.230  17      3

复制代码

lockeyou

大牛,能不能把这个写成不是一行的哇,我想写成那种简单脚本形式的哦
类:
#!/usr/bin/perl
use v5.16;
use Data:umper;

嘿嘿.谢谢！

junglegq

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. 
   
5. my %all;
   
6. 
   
7. open IN, '<data1.log' or die "Can't open file: $!\n";
   
8. while (<IN>) {
   
9.         chomp;
   
10.         my ($sip, $tip, $val) = (split)[0,2,4];
    
11. 
    
12.         $all{$sip}{$tip}{'count'}++;
    
13.         $all{$sip}{$tip}{'sum'} += $val;
    
14. }
    
15. 
    
16. open OUT, '>res.log' or die "Can't open file: $!\n";
    
17. 
    
18. foreach my $sip (sort keys %all ) {
    
19.         foreach my $tip (sort keys %{ $all{$sip} }) {
    
20.                 print OUT "$sip\t$tip\t$all{$sip}{$tip}{'count'}\t$all{$sip}{$tip}{'sum'}\n";
    
21.         }
    
22. }
    

复制代码

lockeyou

回复 5# junglegq
亲,谢谢哈,不过楼上的快了一点.还是很感谢你,好人

yestreenstars

回复 4# lockeyou

1. #!/usr/bin/perl
   
2. my ( %s, %t );
   
3. while (<DATA>) {
   
4.         @_ = split;
   
5.         $s{$_[0]}{$_[2]} += $_[4];
   
6.         $t{$_[0]}{$_[2]} ++;
   
7. }
   
8. for my $k ( keys %s ) {
   
9.         for ( keys %{$s{$k}} ) {
   
10.                 print join "\t", $k, $_, $s{$k}{$_}, $t{$k}{$_} . $/;
    
11.         }
    
12. }
    
13. __DATA__
    
14. 180.153.120.57                2201        222.73.112.230                80                3
    
15. 180.153.120.57                2202        222.73.112.230                80                5
    
16. 180.153.120.57                2203        222.73.112.230            80            9
    
17. 180.153.120.101        9801        221.204.169.127        33940        4
    
18. 180.153.120.101        9801        221.204.169.127        37128        4
    
19. 180.153.120.101        9801        221.204.169.127        3057                4
    
20. 180.153.120.101        9801        221.204.169.127        33940        4
    
21. 180.153.120.101        9801        221.204.169.127        37128        4

复制代码