请教去重并求和

冰封三万里

10200 1067
10200 132
10200 1224
10056 22
10056 10
这个是两列 空格分隔  需要左边那列去重之后 求和  显示成

10200 2423 3
10056 32 2

解释如下
10200 2423（1067+132+1224的值） 3（10200的个数）
10056 32（就一个，不需要相加）2（就一个10056）

能用脚本实现，但是这里牛人很多 ，想问一下能不能用正则使用简单的行写出来？

谢谢各位

Herowinter

这个需求具体指？

用正则使用简单的行写出来

ll104567

Herowinter 发表于 2016-06-07 11:39
这个需求具体指？

用正则使用简单的行写出来

同没看懂、只会这样

1. awk '{a[$1]+=$2;b[$1]+=1}END{for(i in a) print i,a[i],b[i]}'

复制代码

ll104567

Herowinter 发表于 2016-06-07 11:39
这个需求具体指？

用正则使用简单的行写出来

同没看懂、只会这样

1. awk '{a[$1]+=$2;b[$1]+=1}END{for(i in a) print i,a[i],b[i]}'

复制代码

liion631818

1. awk '{a[$1]+=$2; b[$1]++}END{for(i in a){print i, a[i], b[i]}}'

复制代码

回复 1# 冰封三万里


   

冰封三万里

回复 3# ll104567

对 就是这样的！！！！

果然太神了  我拿走去研究研究

谢谢


   

冰封三万里

回复 2# Herowinter


    就是像你楼下那样的  打印第一列名称   第一列求和  第一列的个数

    我用shell写了10行左右实现了  因为很有规律  我就琢磨能不能用正则直接匹配出来

     果然可以！

冰封三万里

回复 4# ll104567


    没太看懂  {a[$1]+=$2; b[$1]++}  这部分  能帮忙解释一下么

    十分感谢

sunzhiguolu

1. perl -00 -pe 's!((\d+)\N+\n)((?:\2\N+\n)*)!$k=$2;$c=$s=0;for(qq($1$3)=~/\d+$/gm){$c++;$s+=$_};qq($k $s $c\n)!ge' f

复制代码

10200 2423 3
10056 32 2

reyleon

回复 9# sunzhiguolu


    Perl代码好他妈销魂啊 大师威武