怎么把相同行數(shù)合并到一行，然后原行數(shù)后面的數(shù)字相加

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
就是將相同郵箱名稱后面的數(shù)字相加。各位大俠能否給些思路如何用perl來實現(xiàn)。

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 發(fā)表
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] 就是一個哈希數(shù)組, 以$F[0]為key,$F[1]為value,把相同key的數(shù)值都疊加起來.然后把文件的每一行都這樣處理一次.
END{} 就是在循環(huán)完之后再處理.里面的意思就是打印這個%cnt 哈希數(shù)組.這個哈希數(shù)組的key就是 郵箱名稱,value就是疊加后的數(shù)字.

[ 本帖最后由 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. }
    

復制代碼

類似這個的簡化版