文本处理

jason680

回复 1# 423497786

would you like it

$ perl -lape 'BEGIN{%h=map{chomp;($k,$v)=split"=";$k=>$v}`cat f1`;}{s/\$\{([^}]+)\}/$h{$1}/g}' f2
<web-xml>
     <conf id='1' type='int'>11.11.111.11</conf>
     <conf id='2' type='yy'>jack</conf>
     <conf id='3' type='int'>1000</conf>
     <conf id='4' type='int'>1000</conf>
</web-xml>
<port>$port</port>

   

jason680

回复 4# 423497786

$ perl -lape 'BEGIN{%h=map{chomp;($k,$v)=split"=";$k=>$v}`cat f1`;}{s/\$\{?(\w+)\}?/$h{$1}/g}' f2
   

jason680

回复 12# 423497786

>>我说的是sub(/\$\{[^}]+\}/,a[c],$0)替换成sub(c,a[c],$0)这个就失败，为啥替换成sub(c,a[c],$0)会失败呢

1. they are different
\$\{[^}]+\} will match ${id} and c="${id}"
but pattern must be "\${id}"

2. it can work like this
  sub("\\"c,a[c],$0)