各位大虾，小弟又遇难处啦

rubyish

回复 26# xiumu2280


png de 做法:
参考资料:
http://www.fabiovisentin.com/tut ... ansparent_image.asp
http://graphicdesign.stackexchan ... -to-an-existing-png
http://graphicdesign.stackexchan ... n-image-transparent
http://mbrsolution.com/tutorial/ ... und-transparent.php
http://www.wikihow.com/Make-a-Transparent-Image-Using-Gimp

yestreenstars

awk:

1. awk 'NR==FNR{sub(/;/,"");a[$1]=$3;next}{do{l=0;for(i in a)if(!gsub(i,a[i],$3))l++}while(l<length(a))print}' file file

复制代码

perl:

1. use 5.010;
   
2. my @data = <DATA>;
   
3. my %hash;
   
4. /(\S+)\s*=\s*([^;]+)/ and $hash{$1} = $2 for @data;
   
5. for my $i (0..$#data) {
   
6.         my @line = split /\s+/, $data[$i];
   
7.         my $count = 0;
   
8.         while ( $count < scalar keys %hash ) {
   
9.                 $count = 0;
   
10.                 $line[3] =~ s/$_/$hash{$_}/g or $count++ for keys %hash;
    
11.         }
    
12.         say join ' ', @line;
    
13. }
    
14. __DATA__
    
15.           ABC =  A1_B1;
    
16.           ABD =  C1_D1;
    
17.           A1    =  D0_A0;
    
18.           B1    =  A1_ABD;
    
19.           C1    =  C0;
    
20.           D1    =  B0_C1;

复制代码

rubyish

回复 32# yestreenstars

1. awk 'NR==FNR{sub(/;/,"");a[$1]=$3;next}{do{l=0;for(i in a)if(!gsub(i,a[i],$3))l++}while(l<length(a))print}' file file

复制代码

awk 的 表现力 , 赞 5 个~         

MMMIX

回复 33# rubyish


    这种 one-liner 真心没法读，尤其是对其语法不熟悉的话。