使用Perl 修改多個類似文件的內容， 更新大量文件

 copy

#!/usr/bin/perl -w
#########################################################################
# File Name: change.pl
# Author: xuehuikuaile
#########################################################################

#$^I變量非空，這個字符就會成爲備份文件的擴展名
#修改原文件的同時 會生成備份文件
$^I = ".bak";
while(<>){
    s/testxxx/testaaa/gm;
    print;
}

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