新手求助，2列数据怎么变成宽表形式

kwunkau

例如有一个数据a.txt：

A,1
B,1
C,1
D,1
A,2
B,2
D,2
A,3
C,3
D,4


想得出数据如下b.txt：
A,1,2,3
B,1,2,0
C,1,3,0
D,1,2,4


问题: 匹配到$1的字段，有匹配值的输出到后一列中，没匹配到就输出0，求教大神awk应该怎么写呢

代号：军刀

1. awk -F"," 'BEGIN{max=0}{a[$1]=a[$1]?a[$1]","$2:$1","$2;b[$1]++;if(b[$1]>max){max=b[$1]}}END{for(i in a){if(b[i]<max){printf"%s,%s\n",a[i],0}else{print a[i]}}}' a.txt     
   
2. 
   
3. A,1,2,3
   
4. B,1,2,0
   
5. C,1,3,0
   
6. D,1,2,4

复制代码

根据你的描述我是看不太懂，随便写一个，结果跟你要的一样

jason680

回复 1# kwunkau

$ awk -F, '{a[$1]=a[$1]","$2;if(++c[$1]>M)M=c[$1]}END{t=asorti(a,b);for(n=1;n<=t;++n){k=b[n];for(m=1;m<=M-c[k];++m)a[k]=a[k]",0";print k a[k]}}' a.txt > b.txt

$ cat b.txt
A,1,2,3
B,1,2,0
C,1,3,0
D,1,2,4

   

moperyblue

1. awk 'BEGIN{FS=OFS=","}
   
2. {
   
3.     a[$1]=a[$1]?a[$1] FS $2:$2
   
4. }
   
5. END{
   
6.     for(i in a){
   
7.         len=split(a[i],b)
   
8.         maxLen=maxLen>len?maxLen:len
   
9.     }
   
10.     for(i in a){
    
11.         len=split(a[i],b)
    
12.         if(len<maxLen){
    
13.             for(j=1;j<=maxLen-len;j++){
    
14.                 a[i] = a[i] FS "0"
    
15.             }
    
16.         }
    
17.     }
    
18.     for(i in a){
    
19.         print i,a[i]
    
20.     }
    
21. }' a.txt

复制代码

kwunkau

回复 2# 代号：军刀


问题可能表达不是很清楚，其实就是把这个换成宽表的形式，谢谢你的帮助了
   

kwunkau

回复 3# jason680

太谢谢了，去学习
   

sunzhiguolu

1. perl -F/,/ -nle '{push(@{$h{$F[0]}},$F[-1])}END{for(sort keys %h){$C=@{$h{$_}} if(!$P++);push(@{$h{$_}},0) while(@{$h{$_}}<$C);print join(",",$_,@{$h{$_}})}}' f

复制代码

A,1,2,3
B,1,2,0
C,1,3,0
D,1,2,4

sunzhiguolu

代号：军刀 发表于 2016-08-04 12:04
根据你的描述我是看不太懂，随便写一个，结果跟你要的一样

我估计是楼主写错了, 要的是这样的结果:

A,1,2,3
B,1,2,0
C,1,0,3
D,1,2,4