[已解决]gawk如何把第一列相同的行拼接

随风

gawk如何把第一列相同的行拼接
如下

1. c 次
   
2. womf 我们
   
3. c 寸
   
4. c 错
   
5. zh 综合s
   
6. d 的
   
7. zh 综合
   
8. d 第
   
9. zi 造成
   

复制代码

要求结果

1. c 次 寸 错
   
2. womf 我们
   
3. zh 综合s 综合
   
4. d 的 第
   
5. zi 造成
   

复制代码

随风

感觉我的有点啰唆，有简洁点的方法吗？

1. {
   
2.         a[$1]=a[$1] " " $2
   
3.         c[$1]++
   
4.         if (c[$1] == 1){i++;b[i]=$1}
   
5. }
   
6. END {
   
7.         for (j=1;j<=i;j++) print b[j],a[b[j]]
   
8. }

复制代码

sxw

Perl版本的：(看起来更啰嗦了)

1. 
   
2. while(<DATA>) {
   
3. my($a,$b)=split;
   
4. push @{$hash{$a}},$b;
   
5. }
   
6. for (keys %hash) {
   
7. print "$_ @{$hash{$_}}\n";
   
8. }
   
9. __DATA__
   
10. c 次
    
11. womf 我们
    
12. c 寸
    
13. c 错
    
14. zh 综合s
    
15. d 的
    
16. zh 综合
    
17. d 第
    
18. zi 造成
    

复制代码

HAT

1. gawk "{a[$1]=a[$1]" "$2}END{for(i in a)print i,a[i]}" a.txt >b.txt

复制代码

sxw

或则单行命令：

1. 
   
2. perl -lane "push @{$hash{$F[0]}},$F[1];END{print "$_ @{$hash{$_}}" for (keys %hash)}" a.txt >b.txt
   

复制代码