怎么把相同行数合并到一行，然后原行数后面的数字相加

yj11

遇到一问题：
aaa@domain.com  2
aaa@domain.com 111
bbb@home.com   2222
bbb@home.com   1


类似这种输出，我想把他们变换成下面形式：

aaa@domain.com 113
bbb@home.com 2223
就是将相同邮箱名称后面的数字相加。各位大侠能否给些思路如何用perl来实现。

yybmsrs

用hash可以吧

linuxty

perl -nle'@x=split;$y{$x[0]}+=$x[1];}{ print "$_ $y{$_}" for keys %y'   filename

mwm5

perl -anle '$cnt{$F[0]}+=$F[1];END{print "$_\t$cnt{$_}" for keys %cnt}' urfile

mwm5

学习~~

yj11

原帖由 linuxty 于 2010-1-8 09:10 发表
perl -nle'@x=split;$y{$x[0]}+=$x[1];}{ print "$_ $y{$_}" for keys %y'   filename

强人，感谢，感谢。

linuxty

4楼更好 我忘了用 -a   这个方便多了

yj11

都是高手，能否解释一下这语命令的含义吗？

linuxty

perl -anle '$cnt{$F[0]}+=$F[1];END{print "$_\t$cnt{$_}" for keys %cnt}' urfile

以第一行为例吧
$F[0] 就是 aaa@domain.com , $F[1] 就是2
$cnt{$F[0]} +=$F[1] 就是一个哈希数组, 以$F[0]为key,$F[1]为value,把相同key的数值都叠加起来.然后把文件的每一行都这样处理一次.
END{} 就是在循环完之后再处理.里面的意思就是打印这个%cnt 哈希数组.这个哈希数组的key就是 邮箱名称,value就是叠加后的数字.

[ 本帖最后由 linuxty 于 2010-1-8 10:04 编辑 ]

cxfcxf

1. 
   
2. my %hash
   
3. foreach (<>) {
   
4.     my array = split;
   
5.     $hash{$array[0]} += $array[1];
   
6. }
   
7. 
   
8. foreach (keys %hash) {
   
9.     print "$_\thash{$_}";
   
10. }
    

复制代码

类似这个的简化版