亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

  免費(fèi)注冊(cè) 查看新帖 |

Chinaunix

  平臺(tái) 論壇 博客 文庫(kù)
12下一頁(yè)
最近訪問(wèn)板塊 發(fā)新帖
查看: 4701 | 回復(fù): 12
打印 上一主題 下一主題

[其他] awk計(jì)算日志中每個(gè)分類最后50行的第2列數(shù)值的總和以及平均值 [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1 [收藏(0)] [報(bào)告]
發(fā)表于 2016-07-17 16:32 |只看該作者 |倒序?yàn)g覽
文件格式如下:

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

文件內(nèi)容在不斷更新,我想取各分類的最新50行記錄的第二列的和以及平均值(取整,四舍五入)

我想使用awk處理,處理后的結(jié)果類似:

分類                 總和             平均
a                100                2
b                300                6
c                200                4

請(qǐng)各位大神指點(diǎn),謝謝。

論壇徽章:
54
2015亞冠之德黑蘭石油
日期:2015-07-07 13:00:1615-16賽季CBA聯(lián)賽之深圳
日期:2016-03-31 09:03:5415-16賽季CBA聯(lián)賽之遼寧
日期:2016-05-09 20:38:15程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-05-12 06:20:0015-16賽季CBA聯(lián)賽之四川
日期:2016-05-13 15:19:4715-16賽季CBA聯(lián)賽之福建
日期:2016-05-15 20:24:34每日論壇發(fā)貼之星
日期:2016-05-16 06:20:0015-16賽季CBA聯(lián)賽之吉林
日期:2016-05-26 11:49:4715-16賽季CBA聯(lián)賽之廣東
日期:2016-05-26 13:49:18極客徽章
日期:2016-12-07 14:05:2315-16賽季CBA聯(lián)賽之廣夏
日期:2016-12-20 17:33:532017金雞報(bào)曉
日期:2017-01-10 15:19:56
2 [報(bào)告]
發(fā)表于 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
復(fù)制代碼

論壇徽章:
307
程序設(shè)計(jì)版塊每周發(fā)帖之星
日期:2016-04-08 00:41:33操作系統(tǒng)版塊每日發(fā)帖之星
日期:2015-09-02 06:20:00每日論壇發(fā)貼之星
日期:2015-09-02 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-04 06:20:00每日論壇發(fā)貼之星
日期:2015-09-04 06:20:00每周論壇發(fā)貼之星
日期:2015-09-06 22:22:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-09 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-19 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-20 06:20:00每日論壇發(fā)貼之星
日期:2015-09-20 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-22 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-24 06:20:00
3 [報(bào)告]
發(fā)表于 2016-07-17 22:11 |只看該作者
用 tail 命令后面接管道直接處理就行了.

論壇徽章:
10
15-16賽季CBA聯(lián)賽之同曦
日期:2016-06-11 19:22:4115-16賽季CBA聯(lián)賽之深圳
日期:2020-05-31 16:13:5615-16賽季CBA聯(lián)賽之同曦
日期:2020-01-28 12:42:47每日論壇發(fā)貼之星
日期:2016-08-09 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-08-09 06:20:00每日論壇發(fā)貼之星
日期:2016-07-12 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-07-12 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-07-06 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-07-04 06:20:0015-16賽季CBA聯(lián)賽之佛山
日期:2021-02-26 09:33:41
4 [報(bào)告]
發(fā)表于 2016-07-18 08:17 |只看該作者
樓上說(shuō)的對(duì)、、、、

論壇徽章:
10
15-16賽季CBA聯(lián)賽之同曦
日期:2016-06-11 19:22:4115-16賽季CBA聯(lián)賽之深圳
日期:2020-05-31 16:13:5615-16賽季CBA聯(lián)賽之同曦
日期:2020-01-28 12:42:47每日論壇發(fā)貼之星
日期:2016-08-09 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-08-09 06:20:00每日論壇發(fā)貼之星
日期:2016-07-12 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-07-12 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-07-06 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2016-07-04 06:20:0015-16賽季CBA聯(lián)賽之佛山
日期:2021-02-26 09:33:41
5 [報(bào)告]
發(fā)表于 2016-07-18 08:56 |只看該作者
順手幫你寫了個(gè)、、、
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聯(lián)賽之福建
日期:2016-03-11 09:05:00黑曼巴
日期:2016-07-07 16:58:1215-16賽季CBA聯(lián)賽之吉林
日期:2016-11-14 09:23:07
6 [報(bào)告]
發(fā)表于 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]]}'
復(fù)制代碼

論壇徽章:
307
程序設(shè)計(jì)版塊每周發(fā)帖之星
日期:2016-04-08 00:41:33操作系統(tǒng)版塊每日發(fā)帖之星
日期:2015-09-02 06:20:00每日論壇發(fā)貼之星
日期:2015-09-02 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-04 06:20:00每日論壇發(fā)貼之星
日期:2015-09-04 06:20:00每周論壇發(fā)貼之星
日期:2015-09-06 22:22:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-09 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-19 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-20 06:20:00每日論壇發(fā)貼之星
日期:2015-09-20 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-22 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-24 06:20:00
7 [報(bào)告]
發(fā)表于 2016-07-18 09:57 |只看該作者
順手幫你寫了個(gè)、、、
  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}'
復(fù)制代碼

論壇徽章:
0
8 [報(bào)告]
發(fā)表于 2016-07-18 15:00 |只看該作者
這不是取各分類最新50條記錄嗎?樓上tail 50不行吧!

評(píng)分

參與人數(shù) 1信譽(yù)積分 +10 收起 理由
sunzhiguolu + 10 多謝提醒, 非常感謝!!!

查看全部評(píng)分

論壇徽章:
145
技術(shù)圖書(shū)徽章
日期: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技術(shù)圖書(shū)徽章
日期: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 [報(bào)告]
發(fā)表于 2016-07-18 15:19 |只看該作者
回復(fù) 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
程序設(shè)計(jì)版塊每周發(fā)帖之星
日期:2016-04-08 00:41:33操作系統(tǒng)版塊每日發(fā)帖之星
日期:2015-09-02 06:20:00每日論壇發(fā)貼之星
日期:2015-09-02 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-04 06:20:00每日論壇發(fā)貼之星
日期:2015-09-04 06:20:00每周論壇發(fā)貼之星
日期:2015-09-06 22:22:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-09 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-19 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-20 06:20:00每日論壇發(fā)貼之星
日期:2015-09-20 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-22 06:20:00程序設(shè)計(jì)版塊每日發(fā)帖之星
日期:2015-09-24 06:20:00
10 [報(bào)告]
發(fā)表于 2016-07-18 16:33 |只看該作者
瘋子影子 發(fā)表于 2016-07-18 15:00
這不是取各分類最新50條記錄嗎?樓上tail 50不行吧!

tail 50 不行那就最后進(jìn)行統(tǒng)計(jì):
  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

復(fù)制代碼
a 15 3
c 51 13
b 15 3

您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號(hào)-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號(hào):11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報(bào)專區(qū)
中國(guó)互聯(lián)網(wǎng)協(xié)會(huì)會(huì)員  聯(lián)系我們:huangweiwei@itpub.net
感謝所有關(guān)心和支持過(guò)ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請(qǐng)注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP