求助文件合并

huatuo20002008

已有两文件a.txt,b.txt，需要将其合并成文件c.txt，请问如何用脚本实现？谢谢！

1. $ cat a.txt
   
2. a b c d
   
3. 1 2 9 7
   
4. 4 5 8 9
   
5. 5 3 6 1
   
6. $ cat b.txt
   
7. a e f d g
   
8. 9 2 4 7 3
   
9. 4 3 7 9 4
   
10. $ cat c.txt
    
11. a b c d e f g
    
12. 1 2 9 7 0 0 0
    
13. 4 5 8 9 0 0 0
    
14. 5 3 6 1 0 0 0
    
15. 9 0 0 7 2 4 3
    
16. 4 0 0 9 3 7 4

复制代码

linuxboy823

a和b是如何得到c的？

bluewaterray

有点晕

ly5066113

这个意思吧：

1. awk 'FNR==1{for(i=1;i<=NF;i++){b[i]=$i;c[$i]++}next}{k++;for(i=1;i<=NF;i++)a[k","b[i]]=$i}END{l=asorti(c);for(i=1;i<=l;i++)printf c[i]" ";print "";for(i=1;i<=k;i++){for(j=1;j<=l;j++)printf a[i","c[j]]?a[i","c[j]]" ":"0 ";print ""}}' a.txt b.txt > c.txt

复制代码

huatuo20002008

这个意思吧：
ly5066113 发表于 2011-01-06 22:05

是的，谢谢大师，后面多了一行，是否可以去除？
0 0 0 0 0 0

ly5066113

回复 5# huatuo20002008


那是你的文件最后面有空行吧。

huatuo20002008

回复  huatuo20002008


那是你的文件最后面有空行吧。
ly5066113 发表于 2011-01-06 22:30

赞一个，确实是文件后面有空行，修改后就好了

huart

1. awk 'FNR==1{for(i=1;i<=NF;i++){b[i]=$i;c[$i]++}next}{k++;for(i=1;i<=NF;i++)a[k","b[i]]=$i}END{l=asorti(c);for(i=1;i<=l;i++)printf c[i]" ";print "";for(i=1;i<=k;i++){for(j=1;j<=l;j++)printf a[i","c[j]]?a[i","c[j]]" ":"0 ";print ""}}' a.txt b.txt > c.txt

复制代码

大师能解释下这段脚本不？

huart

看的晕晕的，你的思路是什么呢？

yinyuemi

1. awk ' NR==FNR{for(i=1;i<=NF;i++){a[i]=a[i]" "NR"|"$i}}NR>FNR{for(j=1;j<=NF;j++) {b[j]=b[j]" "($j~/[a-z]/?FNR:NR-1)"|"$j}} END{for (x=1;x<=NF;x++) {print a[x]"\n"b[x]}}' a.txt b.txt |awk '{for (i=2;i<=NF;i++) {a[$1]=a[$1]" "$i}} END {for (x in a) {print x,a[x]|"sort"}}' | awk '{for(i=1;i<=NF;i++){x=substr($i,1,1);a[x,NR]=substr($i,3);nf>i?nf=nf:nf=i;nr=NR}} END{for(m=1;m<=nf;m++) {for (n=1;n<=nr;n++) printf a[m,n]?a[m,n]" ":"0 ";print ""}}'
   

复制代码

a b c d e f g
1 2 9 7 0 0 0
4 5 8 9 0 0 0
5 3 6 1 0 0 0
9 0 0 7 2 4 3
4 0 0 9 3 7 4