$^I 这个为什么不起作用呢.

kingwrcy

#$^I="";
#$^I=".bak";
sub replace(){
        my $para = "$dir/$_[0]";
        open MYFILE,"$para" or die "cannot open file $para !\n";
        while(<MYFILE>{
                s/UI_EM/$newpar/g;
                print;
        }
}

只在屏幕上打印出$_的内容.怎么让它写进去呢?
$^I="" 不行.
$^I = ".bak" 也没见多出来的bak文件啊.哪里有问题呢.

kingwrcy

没人知道?

churchmice

因为$^I作用的是@ARGV，使用如下方式即可

1. 
   
2. @ARGV = ($para);
   
3. while(<>)
   

复制代码

khandielas

$^I 就是能magically给个备份，否则用他作甚？