perl更新文件

##更新文件内容

#$^I 与 print的关系
$^I=".bak";
在为文件做bak备份后
　　while(<>){
　　.
　　.
　　.
　　print;
　　}
原本文件被改为.bak后缀
同时创建与原本文件名相同的空文件
print出的东西会被输入新的空文件内

#例如
　　while(1){
　　$^I=".bak";
　　print"请输入文件名\n";
　　$f=<STDIN>;
　　chomp $f;
　　push(@ARGV,$f);
　　while(<>){
　　s/^.*/fkfkfkfk/;
　　print;
　　　　}
　　}