困扰了我很久的sed正则问题，万分感谢

jason680

回复 1# shenmufeng

Would you like this way ...
Note: I don't know how to do with sed

$ awk '$1==".global"||$1==".extern"{a[$2]=1}{for(n=1;n<=NF;n++){k=$n;sub(/:$/,"",k);if(a[k])$n="_"$n}}1' FILE
.global _func1
.extern _func2

_func1:

call _func2


   

jason680

回复 11# shenmufeng

$ cat test1.s
      .global   abcfunt_test
      .extern   xy012f_out


abcfunt_test:

                    LDR  r1, r2, xy012f_out



$ perl -i -lape '{if(m/(\.global|\.extern)\s*(\w+)/){$h{$2}="_$2"};s/(\w+)/$h{$1}||$1/ge}' test1.s

$ cat test1.s
      .global   _abcfunt_test
      .extern   _xy012f_out


_abcfunt_test:

                    LDR  r1, r2, _xy012f_out