Board logo

标题: [问题求助] [已解决]gawk如何把第一列相同的行拼接 [打印本页]
作者: 随风    时间: 2011-10-28 16:19     标题: [已解决]gawk如何把第一列相同的行拼接

本帖最后由 随风 于 2011-10-28 22:30 编辑

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 造成
复制代码
作者: 随风    时间: 2011-10-28 16:34

感觉我的有点啰唆，有简洁点的方法吗？
  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    时间: 2011-10-28 21:20

Perl版本的：(看起来更啰嗦了)
  1. while(<DATA>) {

  2. my($a,$b)=split;

  3. push @{$hash{$a}},$b;

  4. }

  5. for (keys %hash) {

  6. print "$_ @{$hash{$_}}\n";

  7. }

  8. __DATA__

  9. c 次

  10. womf 我们

  11. c 寸

  12. c 错

  13. zh 综合s

  14. d 的

  15. zh 综合

  16. d 第

  17. zi 造成
复制代码
作者: HAT    时间: 2011-10-28 23:13

  1. gawk "{a[$1]=a[$1]\" \"$2}END{for(i in a)print i,a[i]}" a.txt >b.txt
复制代码
作者: sxw    时间: 2011-10-28 23:38

或则单行命令：
  1. perl -lane "push @{$hash{$F[0]}},$F[1];END{print \"$_ @{$hash{$_}}\" for (keys %hash)}" a.txt >b.txt
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2