copy

1. #!/usr/bin/perl -w  

2. #########################################################################  

3. # File Name: change.pl  

4. # Author: xuehuikuaile

   
   

5. #########################################################################  

6.   

7. #$^I变量非空，这个字符就会成为备份文件的扩展名  

8. #修改原文件的同时 会生成备份文件  

9. $^I = ".bak";   

10. while(<>){  

11.     s/testxxx/testaaa/gm;  

12.     print;  

13. }  

运行方法： ./change.pl  *.dat