新手请教一个简单的问题。文本的读取替换。

423497786

awk 'BEGIN{FS="="}
NR==FNR{
  a["${"$1"}"]=$2
  next
}
{
  match($0,/\$\{[^}]+\}/)
  c=substr($0,RSTART,RLENGTH)
  sub(/\$\{[^}]+\}/,a[c],$0)
}1' sysconf.xml permission.xml

jason680

回复 1# qq3138298

$ perl -lape 'BEGIN{%h=map{chomp;($k,$v)=split"=";$k=>$v}`cat sysconf.xml`;}{s/\$\{(\w+)\}/$h{$1}/g}' permission.xml
<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>

   

laliheyi

回复 1# qq3138298

1. BEGIN{
   
2.   FS="="
   
3.   delimStart="${"
   
4.   delimStartLen=2
   
5.   delimEnd="}"
   
6.   delimEndLen=1
   
7. }
   
8. 
   
9. function substVars(){
   
10.   line=$0
    
11.   rs=""
    
12.   start=0
    
13.   i=0
    
14.   end=0
    
15.   while(1){
    
16.     start=index(line,delimStart)
    
17.     if(start==0){
    
18.       if(!i){
    
19.         return $0
    
20.       }else{
    
21.         return rs substr(line,i)
    
22.       }
    
23.     }else{
    
24.       rs=rs substr(line,i,start-1)
    
25.       end=index(line,delimEnd)
    
26.       if(!end && !i){
    
27.         return $0
    
28.       }else{
    
29.         rs=rs keyvalue[substr(line,start+delimStartLen,end-start-delimStartLen)]
    
30.         line=substr(line,end+delimEndLen)
    
31.         i=1
    
32.       }
    
33.     }
    
34.   }
    
35. }
    
36. NR==FNR{
    
37.   keyvalue[$1]=$2
    
38.   next
    
39. }
    
40. {
    
41.   print substVars()
    
42. }

复制代码

jason680

回复 1# qq3138298

$ set -a; . sysconf.xml; awk '{while(match($0,/\${\w+}/))sub(/\${\w+}/,ENVIRON[substr($0,RSTART+2,RLENGTH-3)])}1' permission.xml
<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>