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

1. 需求

有N个 *.dat的文件，其中都有一处拼写错误，testxxx --> testaaa

#!/usr/bin/perl -w
#########################################################################
# File Name: change.pl
# Author: kevin xiang
# Created Time: 2014年07月08日 星期二 14时35分28秒
#########################################################################

#$^I变量非空，这个字符就会成为备份文件的扩展名
#修改原文件的同时 会生成备份文件
$^I = ".bak"; 
while(<>){
	s/testxxx/testaaa/gm;
	print;
}

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