|
发表于 2006-12-28 23:04:02
|
显示全部楼层
- [0 No.2006 huan@huan ~/tmp]$ cat txt
- a 1
- a 2
- b 3
- b 4
- [0 No.2007 huan@huan ~/tmp]$ perl -lwane ' $list{ $F[0] } += $F[1]; END{ print "$_ -> $list{$_}" foreach ( sort keys %list) } ' < txt
- a -> 3
- b -> 7
- [0 No.2008 huan@huan ~/tmp]$
- [0 No.2005 huan@huan ~/tmp]$
复制代码
像这样的问题
最好是有份示例数据
要不我们也只好猜测LZ了意思了:) |
|