【小工具】對(duì)當(dāng)前目前的所有文件內(nèi)容批量替換

shijiang1130

1. -module(tools).
   
2. -compile(export_all).
   
3. 
   
4. r()->
   
5. L=filelib:wildcard("*.log"),
   
6. lists:foreach(fun(F)->
   
7.         C=do(F),
   
8.         N=filename:basename(F,".log"),
   
9.         file:write_file(N,C)
   
10. end
    
11. ,L).
    
12.   
    
13. do(F)->
    
14. {ok,A}=file:read_file(F),
    
15. B=re:replace(A, "\\S+ -org1", "XXX -ph", [global, {return, list}]),
    
16. C=re:replace(B, " org2\\S+", " community XXX", [global, {return, list}]),
    
17. C.
    
18.    

復(fù)制代碼