perl:修改原文件

perl:修改原文件

很多时候，我们希望对原有文件的内容进行一定的修改，linux虽然有sed这个强大的文本编辑命令，但是他只能生成新文件或打印到screen上(或许sed也具有修改原文件的功能，小的才疏学浅，尚不知道，烦请大家告诉我)，但在perl里却有这么一个命令$^I
例子：
#!/usr/bin/perl
use strict;

$^I="";
while(<>){
        s/^rate.*/rate=0/;
        s/^testMode.*/testMode=0/;
        print;
}

$^I的值可以决定是要重写文件，还是备份文件，若要重写，只须将其值设为空就可，若要备份，则$^I=".bak", 他就会把改过的文件命名为filename.bak了