練習(xí)題（鍵值循環(huán)替換）

jason680

回復(fù) 1# yestreenstars

$ awk -F' *[=_;] *' 'function x(S, s,t,n,r,b){if(a[S]!="")return x(a[S],s);t=split(S,b," ");if(t==1)return S;r="";for(n=1;n<=t;n++)r=r==""?x(b[n]):r" "x(b[n]);return r}{k[NR]=$1;s="";for(n=2;n<NF;n++)s=s?s" "$n:$n;a[$1]=s}END{for(n=1;n<=NR;n++)a[n]=x(a[k[n]]);for(n=1;n<=NR;n++){gsub(/ /,"_",a[n]);print k[n]" = "a[n]";"}}' FILE
ABC = D0_A0_D0_A0_C0_B0_C0;
ABD = C0_B0_C0;
A1 = D0_A0;
B1 = D0_A0_C0_B0_C0;
C1 = C0;
D1 = B0_C0;

   

blackold

Can use sed?

1. 
   
2. sed 'h;s/.*[ =]\+//;:n;'$(sed 's#[ =;]\+#/#g;s#^#s/#;s#$#g#;H;;$!d;g;s/\n/;/g;' urfile)';tn;G;s/\(.*\)\n\([^ =]\+\).*/\2 = \1/' urfile

復(fù)制代碼

quote from @rdcwayx:

Never do it in 'awk' if 'sed' can handle it;

yestreenstars

回復(fù) 12# blackold

牛，學(xué)習(xí)了~
   

ly5066113

回復(fù) 12# blackold


向黑哥學(xué)習(xí)。
改進(jìn)版：

1. sed -r ':a;N;$!ba;h;s/[ ;]//g;x;G;:b;s/(.+)([^=]*;.*\n\1=)(\w+)/\3\2\3/;tb;s/[^;]*$//' file

復(fù)制代碼

blackold

回復(fù) 14# ly5066113


    Tim 老師太謙虛了。

    Lookup-table, 好!!! 我就差這一招沒(méi)學(xué)會(huì)

yinyuemi

1. awk -F'[ _;]+' 'function f(x,y){for(n in y){if(n in a){f(n,a[n])}else{printf !b[i]++?n:"_"n}}}{for(i=3;i<=NF-1;i++)a[$1][$i]=$i}END{for(i in a){printf i" = ";f(i,a[i]);print ";"}}'
   

復(fù)制代碼

旋轉(zhuǎn)小馬

來(lái)圍觀各位大神學(xué)習(xí)的~~~

rulebook

1. awk -F"[= ]+" -vm=1 '{gsub(/;/,"",$2);s[$1]=$2} END{while(m==1){m=0;for(i in s){l=split(s[i],p,"_");for(j=1;j<=l;j++){if(p[j] in s){gsub(p[j],s[p[j]],s[i])}};y=split(s[i],u,"_");for(k=1;k<=y;k++){if(u[k] in s){m=1}}}};for(i in s){print i" = "s[i]";"}}' o

復(fù)制代碼

果斷回復(fù)學(xué)學(xué)大神的手法

Herowinter

回復(fù) 1# yestreenstars

下班前練個(gè)手，請(qǐng)多多指教。

1. awk '{sub(/;$/,"")} NR==FNR{a[$1]=$3;next} {while($3~/[A-D]1|[A-D][A-D]/){split($3,b,"_");for(i in b)if(b[i] in a){sub(b[i],a[b[i]],$3)}};$0=$0";"}1' i i
   
2. ABC = D0_A0_D0_A0_C0_B0_C0;
   
3. ABD = C0_B0_C0;
   
4. A1 = D0_A0;
   
5. B1 = D0_A0_C0_B0_C0;
   
6. C1 = C0;
   
7. D1 = B0_C0;

復(fù)制代碼

vic260844

Mark 一下學(xué)習(xí)