使用Perl 修改多个类似文件的内容， 更新大量文件

copy
#!/usr/bin/perl -w

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

# File Name: change.pl

# Author: xuehuikuaile

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

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

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

$^I = ".bak";

while(<>){

s/testxxx/testaaa/gm;

print;

}

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