copy

#!/usr/bin/perl-w

#########################################################################

#FileName:change.pl

#Author: xuehuikuaile


#########################################################################

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

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

$^I=".bak";

while(<>){

s/testxxx/testaaa/gm;

print;

}




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