awk计算日志中每个分类最后50行的第2列数值的总和以及平均值

sunzhiguolu

用 tail 命令后面接管道直接处理就行了.

sunzhiguolu

顺手帮你写了个、、、

1. tail -50 f|perl -anle '{$h{$F[0]}[0]+=$F[-1];$h{$F[0]}[1]++}END{printf("%s, %d, %g\n",$_,$h{$_}[0],$h{$_}[0]/$h{$_}[-1]) for sort keys %h}'

复制代码

sunzhiguolu

疯子影子 发表于 2016-07-18 15:00
这不是取各分类最新50条记录吗？楼上tail 50不行吧！

tail 50 不行那就最后进行统计:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hData;
   
6. map {my ($k, $v) = split; push (@{$hData{$k}}, $v)} <DATA>;
   
7. foreach my $k (keys %hData){
   
8.     my $cnt = @{$hData{$k}};
   
9.     my @aData = $cnt > 50 ? @{$hData{$k}}[($cnt - 50) .. ($cnt - 1)] : @{$hData{$k}};
   
10.     $cnt = @aData;
    
11.     my $total = 0;
    
12.     $total += $_ for @aData;
    
13.     printf ("%s %d %g\n", $k, $total, int($total / $cnt + .5));
    
14. }
    
15. 
    
16. __DATA__
    
17. a 1
    
18. a 2
    
19. c 10
    
20. b 3
    
21. a 3
    
22. c 13
    
23. b 5
    
24. a 4
    
25. c 15
    
26. a 5
    
27. b 4
    
28. c 13
    
29. b 2
    
30. b 1
    
31. 
    

复制代码

a 15 3
c 51 13
b 15 3