练习题（列合并）

yestreenstars

回复 10# seesea2517
不不不，这跟会不会perl没关系，文本处理问题，不分shell或perl，主要看思路~{:2_168:}

   

seesea2517

回复 11# yestreenstars


    {:2_169:} {:3_198:} 就不要点破了嘛，咱小学数学老师代语文课三年，美术老师代语文课两年。嗯，美术老师其实和数学老师是一个人。

jgrlj322

不会perl，肿么办？

yinyuemi

回复 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

复制代码

tiger4567

来看看 嘿嘿嘿