请教一个合并问题

gzhman

希望得到这里兄弟的帮助。提前谢谢！问题如下
请教问题1：
文件
A 12 34 5 63 58
B 42 36 86 2 23
C 36 98 72 63 3
D 69 32 18 99 66
E 12 34 5 63 58
F 42 36 86 2 23
G 36 98 72 63 3
D 60 32 10 9 23
处理后的文件是：
A 12 34 5 63 58
B 42 36 86 2 23
C 36 98 72 63 3
D 129 64 28 108 89
E 12 34 5 63 58
F 42 36 86 2 23
G 36 98 72 63 3
说明：如果行的第一个字母相同则后面的对应数字相加。

[ 本帖最后由 gzhman 于 2009-9-6 19:21 编辑 ]

blackold

顺序有什么要求？

gzhman

他们的对应项相加。行的顺序没有要求。谢谢你的回贴。

blackold

try:

1. sort urfile|awk '$1!=p{if(p)print pa;p=$1;pa=$0;next}{n=split(pa,a);for(i=2;i<=n;i++)$i+=a[i];pa=$0}END{print pa}'

复制代码

springwind426

1. 
   
2. awk '{a[$1]=1;b[$1,1]=$1;for(i=2;i<=NF;i++)b[$1,i]+=$i}END{for(s in a){for(i=1;i<=NF;i++)printf b[s,i] "\t";print ""}}'  数据文件
   

复制代码

恋家的老鼠

嘿嘿，这个关联数组用起来真牛，刚开始看的时候还以为纳闷awk啥时候有二维数组呢。
程序写一行读起来真累。

[ 本帖最后由 恋家的老鼠 于 2009-9-7 21:44 编辑 ]

yyt030

春风的回答真绝，不过不是很完美，特别是遇到如下的文本：
A 12 34 5 63 58
B 42 36 86 2 23
C 36 98 72 63 3 10
D 69 32 18 99 66
E 12 34 5 63 58
F 42 36 86 2 23
D 60 32 10 9 23 10 10
G 36 98 72 63 3
将上面的shell修改了一下 ：
awk '{
        b[$1]=$1
        for(i=2;i<=NF;i++){
                sum[$1,i]+=$i
        }
        num=num>NF?num:NF
     }
     END{
        for(i in b){
                printf "%-5s ",b;
                for(j=2;j<=num;j++){printf "%-5s ",sum[i,j]}
                print
        }
}'   file

blackold

世间哪有完美？