求AWK，数据横向排列

haiyuey

文本为:
    王一    2
    王一    5
    张二    4
    张二    5
    张二    8
    刘三    2
求输出结果为：
   王一 2  王一 5
   张二 4  张二 5  张二 8
   刘三 2

[ 本帖最后由 haiyuey 于 2007-4-14 15:33 编辑 ]

awk就是awp加ak

try

1. awk '{
   
2.     do {
   
3. 
   
4.         if ($1 != oldKey) printf "\n";
   
5. 
   
6.         printf("%s\t", $0);
   
7.         oldKey = $1;
   
8.     } while (readline > 0);
   
9. }' urfile

复制代码

haiyuey

太谢谢了，帮了我大忙，真想拜您为师！

welcome008

awk '{a[$1]+=1;b[$1","a[$1]]=$2}END{for (x in a) {for(y in b) if(substr(y,1,index(y,",")-1) == x) c[x]=x" "b[y]c[x]};for(s in c) print c[s]}'  filename

haiyuey

不好意思,再问一下,如果想这样呢?
文本为:
    王一    2
    王一    5
    张二    4
    张二    5
    张二    8
    刘三    2
求输出结果为：
   王一 2  5
   张二 4  5   8
   刘三 2

awk就是awp加ak

try

1. awk '{
   
2.     do {
   
3. 
   
4.         if ($1 != oldKey) printf ("\n%s", $1);
   
5. 
   
6.         printf("\t%s", $2);
   
7.         oldKey = $1;
   
8.     } while (readline > 0);
   
9. }' urfile

复制代码

dream8888

小第也来个sed版的：
# sed -e :a -e 'N;/^\([ \t]*[^ \t]\{1,\}\).*\n\1/!{P;D;};s/\n/ /;ta' Filename
    王一    2     王一    5
    张二    4     张二    5     张二    8
    刘三    2
# sed -e :a -e 'N;/^\([ \t]*[^ \t]\{1,\}\)\(.*\)\n\1\(.*\)/!{P;D;};s//\1\2 \3/;ta' Filename
    王一    2     5
    张二    4     5     8
    刘三    2
csh中!前加个\

[ 本帖最后由 dream8888 于 2007-4-16 14:32 编辑 ]