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