练习题（键值循环替换）

jason680

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

复制代码

quote from @rdcwayx:

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

yestreenstars

回复 12# blackold

牛，学习了~
   

ly5066113

回复 12# blackold


向黑哥学习。
改进版：

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

复制代码

blackold

回复 14# ly5066113


    Tim 老师太谦虚了。

    Lookup-table, 好!!! 我就差这一招没学会

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 ";"}}'
   

复制代码

旋转小马

来围观各位大神学习的~~~

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

复制代码

果断回复学学大神的手法

Herowinter

回复 1# yestreenstars

下班前练个手，请多多指教。

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;

复制代码

vic260844

Mark 一下学习