awk 处理文本中的数据，要求如下

ltz3022003

a文件如下：
001  100
001  200
001 150
002  40
002   40
003    40
003    800
003    800
003   15
004    120
.......
我想把第一列相同的，第二列累加
001   450
002   80
003   1655
.........

ltz3022003

我的方法是把第一列的值取出放入一个文件b中
b内容如下：
001
002
003
004
......
我写了一个循环
for i in $(cat b)
do
      awk ' $1=="'$i'"  { mysum+=$2 } END { print “'$i'”,$mysum } '   a  > >c
done
但是b文件大了之后，效率太慢，有别的好方法吗？

windsea

awk不熟，只是不明白，为什么不用其他编程语言呢，shell处理这样的东西有什么优点？

1ball

用C，逐字节处理

ltz3022003

我们的unix机器上没有c和其它语言的编译环境,而awk可以格式化输出.
想了一个笨办法,
awk ' { if ($1!=b1 )  b2=$2 ; printf("%4s%10.2f",b1,b2) ;else b2+=$2 ; }
         END { printf ("%4s%10.2f",b1,b2) } '  a  |sed '1d' >b

chunchengfh

awk版本： awk '{ array[$1] += $2 } END { for (x in array) print x, array[x] }' a
perl版本：

2. #!/usr/bin/perl -w
4. use strict;
5. use warnings;
7. my %array;
8. while (<>) {
9.         chomp;
10.         my @parts = split();
11.         $array{$parts[0]} += $parts[1];
12. }
14. foreach (keys %array) {
15.         print "$_ $array{$_}\n";
16. }

复制代码

chasye

其实和楼上是一样的：

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. while (<>) {
   
5.         next if ! (/\d/); #跳过包含非数字的行
   
6.         ($key, $value) = split;
   
7.         $array{$key} += $value;
   
8. }
   
9. 
   
10. foreach (sort keys %array) {
    
11.         print "$_ $array{$_}\n";
    
12. }
    
13. 
    

复制代码

warhua

cat a |awk '{a[$1]=a[$1]+$2}END{for (i in a) print i,a}'
如果需要排序的话可以在后边加上|sort
如
root:~$ cat xx|awk '{a[$1]=a[$1]+$2}END{for (i in a) print i,a}'|sort
001 450
002 80
003 1655
004 120

Post by ltz3022003;1324233
a文件如下：
001  100
001  200
001 150
002  40
002   40
003    40
003    800
003    800
003   15
004    120
.......
我想把第一列相同的，第二列累加
001   450
002   80
003   1655
.........