免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
12下一页
最近访问板块 发新帖
查看: 4529 | 回复: 12
打印 上一主题 下一主题

[其他] awk计算日志中每个分类最后50行的第2列数值的总和以及平均值 [复制链接]

论坛徽章:
0
跳转到指定楼层
1 [收藏(0)] [报告]
发表于 2016-07-17 16:32 |只看该作者 |倒序浏览
文件格式如下:

a 23
b 20
c 5
.....
a 13
b 18
c 21

文件内容在不断更新,我想取各分类的最新50行记录的第二列的和以及平均值(取整,四舍五入)

我想使用awk处理,处理后的结果类似:

分类                 总和             平均
a                100                2
b                300                6
c                200                4

请各位大神指点,谢谢。

论坛徽章:
54
2015亚冠之德黑兰石油
日期:2015-07-07 13:00:1615-16赛季CBA联赛之深圳
日期:2016-03-31 09:03:5415-16赛季CBA联赛之辽宁
日期:2016-05-09 20:38:15程序设计版块每日发帖之星
日期:2016-05-12 06:20:0015-16赛季CBA联赛之四川
日期:2016-05-13 15:19:4715-16赛季CBA联赛之福建
日期:2016-05-15 20:24:34每日论坛发贴之星
日期:2016-05-16 06:20:0015-16赛季CBA联赛之吉林
日期:2016-05-26 11:49:4715-16赛季CBA联赛之广东
日期:2016-05-26 13:49:18极客徽章
日期:2016-12-07 14:05:2315-16赛季CBA联赛之广夏
日期:2016-12-20 17:33:532017金鸡报晓
日期:2017-01-10 15:19:56
2 [报告]
发表于 2016-07-17 21:13 |只看该作者
  1. awk '{a[$1][length(a[$1])+1]=$2}END{for(i in a)for(j in a[i])if(j>length(a[i])-3){d[i]+=a[i][j];e[i]++};for(i in e)print i,d[i],int(0.5+d[i]/e[i])}' file
复制代码

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
3 [报告]
发表于 2016-07-17 22:11 |只看该作者
用 tail 命令后面接管道直接处理就行了.

论坛徽章:
10
15-16赛季CBA联赛之同曦
日期:2016-06-11 19:22:4115-16赛季CBA联赛之深圳
日期:2020-05-31 16:13:5615-16赛季CBA联赛之同曦
日期:2020-01-28 12:42:47每日论坛发贴之星
日期:2016-08-09 06:20:00程序设计版块每日发帖之星
日期:2016-08-09 06:20:00每日论坛发贴之星
日期:2016-07-12 06:20:00程序设计版块每日发帖之星
日期:2016-07-12 06:20:00程序设计版块每日发帖之星
日期:2016-07-06 06:20:00程序设计版块每日发帖之星
日期:2016-07-04 06:20:0015-16赛季CBA联赛之佛山
日期:2021-02-26 09:33:41
4 [报告]
发表于 2016-07-18 08:17 |只看该作者
楼上说的对、、、、

论坛徽章:
10
15-16赛季CBA联赛之同曦
日期:2016-06-11 19:22:4115-16赛季CBA联赛之深圳
日期:2020-05-31 16:13:5615-16赛季CBA联赛之同曦
日期:2020-01-28 12:42:47每日论坛发贴之星
日期:2016-08-09 06:20:00程序设计版块每日发帖之星
日期:2016-08-09 06:20:00每日论坛发贴之星
日期:2016-07-12 06:20:00程序设计版块每日发帖之星
日期:2016-07-12 06:20:00程序设计版块每日发帖之星
日期:2016-07-06 06:20:00程序设计版块每日发帖之星
日期:2016-07-04 06:20:0015-16赛季CBA联赛之佛山
日期:2021-02-26 09:33:41
5 [报告]
发表于 2016-07-18 08:56 |只看该作者
顺手帮你写了个、、、
tail -50 file|awk '{a[$1]+=$2;b[$1]+=1}END{for(i in a){print i,a[i],int(a[i]/b[i]+0.5)}}'

论坛徽章:
6
羊年新春福章
日期:2015-03-03 17:16:28双子座
日期:2015-03-03 17:16:56巳蛇
日期:2015-03-03 17:17:2415-16赛季CBA联赛之福建
日期:2016-03-11 09:05:00黑曼巴
日期:2016-07-07 16:58:1215-16赛季CBA联赛之吉林
日期:2016-11-14 09:23:07
6 [报告]
发表于 2016-07-18 09:13 |只看该作者
要是最后50行的话
  1. tail -50 file |awk '{a[$1]+=$2;c[$1]++}END{l=asorti(a,b);for(i=1;i<=l;i++)print b[i],a[b[i]]/c[b[i]]}'
复制代码

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
7 [报告]
发表于 2016-07-18 09:57 |只看该作者
顺手帮你写了个、、、
  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}'
复制代码

论坛徽章:
0
8 [报告]
发表于 2016-07-18 15:00 |只看该作者
这不是取各分类最新50条记录吗?楼上tail 50不行吧!

评分

参与人数 1信誉积分 +10 收起 理由
sunzhiguolu + 10 多谢提醒, 非常感谢!!!

查看全部评分

论坛徽章:
145
技术图书徽章
日期:2013-10-01 15:32:13戌狗
日期:2013-10-25 13:31:35金牛座
日期:2013-11-04 16:22:07子鼠
日期:2013-11-18 18:48:57白羊座
日期:2013-11-29 10:09:11狮子座
日期:2013-12-12 09:57:42白羊座
日期:2013-12-24 16:24:46辰龙
日期:2014-01-08 15:26:12技术图书徽章
日期:2014-01-17 13:24:40巳蛇
日期:2014-02-18 14:32:59未羊
日期:2014-02-20 14:12:13白羊座
日期:2014-02-26 12:06:59
9 [报告]
发表于 2016-07-18 15:19 |只看该作者
回复 1# priod_chen

$ cat FILE
a 1
a 2
c 10
b 3
a 3
c 13
b 5
a 4
c 15
a 5
b 4
c 13
b 2
b 1

$ awk -vt=3 '{if(!a[$1]++)b[++c]=$1;d[$1,a[$1]%t]=$2}END{OFS="\t";print "分类","总和","平均";for(n=1;n<=c;++n){s=0;for(m=0;m<t;++m)s+=d[b[n],m];print b[n],s,int(s/t+0.5)}}' FILE
分类        总和        平均
a        12        4
c        41        14
b        7        2

   

论坛徽章:
307
程序设计版块每周发帖之星
日期:2016-04-08 00:41:33操作系统版块每日发帖之星
日期:2015-09-02 06:20:00每日论坛发贴之星
日期:2015-09-02 06:20:00程序设计版块每日发帖之星
日期:2015-09-04 06:20:00每日论坛发贴之星
日期:2015-09-04 06:20:00每周论坛发贴之星
日期:2015-09-06 22:22:00程序设计版块每日发帖之星
日期:2015-09-09 06:20:00程序设计版块每日发帖之星
日期:2015-09-19 06:20:00程序设计版块每日发帖之星
日期:2015-09-20 06:20:00每日论坛发贴之星
日期:2015-09-20 06:20:00程序设计版块每日发帖之星
日期:2015-09-22 06:20:00程序设计版块每日发帖之星
日期:2015-09-24 06:20:00
10 [报告]
发表于 2016-07-18 16:33 |只看该作者
疯子影子 发表于 2016-07-18 15:00
这不是取各分类最新50条记录吗?楼上tail 50不行吧!

tail 50 不行那就最后进行统计:
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;

  4. my %hData;
  5. map {my ($k, $v) = split; push (@{$hData{$k}}, $v)} <DATA>;
  6. foreach my $k (keys %hData){
  7.     my $cnt = @{$hData{$k}};
  8.     my @aData = $cnt > 50 ? @{$hData{$k}}[($cnt - 50) .. ($cnt - 1)] : @{$hData{$k}};
  9.     $cnt = @aData;
  10.     my $total = 0;
  11.     $total += $_ for @aData;
  12.     printf ("%s %d %g\n", $k, $total, int($total / $cnt + .5));
  13. }

  14. __DATA__
  15. a 1
  16. a 2
  17. c 10
  18. b 3
  19. a 3
  20. c 13
  21. b 5
  22. a 4
  23. c 15
  24. a 5
  25. b 4
  26. c 13
  27. b 2
  28. b 1

复制代码
a 15 3
c 51 13
b 15 3

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP