練習(xí)題（列合并）

yestreenstars

回復(fù) 10# seesea2517
不不不，這跟會不會perl沒關(guān)系，文本處理問題，不分shell或perl，主要看思路~{:2_168:}

   

seesea2517

回復(fù) 11# yestreenstars


    {:2_169:} {:3_198:} 就不要點破了嘛，咱小學(xué)數(shù)學(xué)老師代語文課三年，美術(shù)老師代語文課兩年。嗯，美術(shù)老師其實和數(shù)學(xué)老師是一個人。

jgrlj322

不會perl，腫么辦？

yinyuemi

回復(fù) 1# yestreenstars

1. awk -F'\t' '{t=$1 FS $2 FS $3 FS $4;line=5;for(i=5;i<=NF;i++){if(NR==FNR){a[t][line++]=$i;n=NF}else{a[t][n+i-4]=$i}};b[t]}END{cmd="sort -s  -k2n -k1 ";for(i in b)print i|& cmd; close(cmd,"to"); while(cmd |& getline line){printf line;for(j=5;j<=n+NF-4;j++)printf (FS (j in a[line]?a[line][j]:"0"));print ""}}' file1.txt file2.txt

復(fù)制代碼

tiger4567

來看看 嘿嘿嘿