如何使用awk实现数组重排？

theall

现有文件a.txt

100 A 1 B 1
200 A 1 B 1 C 1
300 A 1 B 2 C 1
400 B 1 C 2 D 1
500 A 1 B 2 C 1 D 1
600 C 2 D 1 E 2

希望的输出结果：
      A  B  C  D  E  
100   1  1  0  0  0
200   1  1  1  0  0
300   1  2  1  0  0
400   0  1  2  1  0
500   1  2  1  1  0
600   0  0  2  1  2

如何才能用awk实现呢，求各位大侠指点。

ywlscpl

回复 1# theall

1. awk '{a[NR]=$1;for (i=2;i<NF;i+=2) {b[$1","$i]=$(i+1);if (!x[$i]++) c[++n]=$i}}END{for (i=1;i<=n;i++) printf "\t"c[i];print "";for (i=1;i<=NR;i++) {printf a[i];for (j=1;j<=n;j++) printf "\t"(a[i]","c[j] in b?b[a[i]","c[j]]:0);print ""}}' a.txt

复制代码

pcuer

回复 1# theall


    好像没什么规则呀

网中淫

汝真乃神人也

yinyuemi

回复 1# theall

1. echo '100 A 1 B 1
   
2. 200 A 1 B 1 C 1
   
3. 300 A 1 B 2 C 1
   
4. 400 B 1 C 2 D 1
   
5. 500 A 1 B 2 C 1 D 1
   
6. 600 C 2 D 1 E 2' | \
   
7. awk '{a[NR]=$1;{for(i=2;i<=NF;i++){c[$i];b[NR" "$(i-1)]=$(++i)}}}END{for(i=0;i<=NR;i++){printf a[i];{for(j=1;j<=asorti(c,d);j++) printf i?(b[i" "d[j]]>0?"\t"b[i" "d[j]]:"\t0"):"\t"d[j]};print ""}}'
   
8.         A       B       C       D       E
   
9. 100     1       1       0       0       0
   
10. 200     1       1       1       0       0
    
11. 300     1       2       1       0       0
    
12. 400     0       1       2       1       0
    
13. 500     1       2       1       1       0
    
14. 600     0       0       2       1       2
    

复制代码

theall

万分感谢，能否简单解释下？

fangtong2008

太强了  根本看不懂！

Single_GG

学习。。

gofortime2

学习了