$^I变量（初级问题）

kane0615

perl语言入门第四版中的一个问题，对$^I变量有点不太明白。
cat test2.pl
#!/usr/bin/perl -w
use strict;
open DATA,"data";               
$^I=".bak";
while(<DATA>){
s/^(.*)/#$1/s;
print;
}

cat data
Promram name: granite
Author: Randal L.Schwartzates
Company: RockSoft
Department: R&D

按照书中对$^I变量的描述，应该可以生成data.bak。可是实际并没有生成，文件内容也没有改变。 新手，请哪位帮着解释一下，多谢。

kane0615

cat test2.pl
#!/usr/bin/perl -w
use strict;
$^I=".bak";
while(<DATA>){
    s/^(.*)/#$1/s;
    print;
}
./test2.pl data
这样执行就可以了,看来对$^I还是理解的不太好.

kane0615

刚才多打了点东西, 那位老大能把$^I 解释一下啊, 不胜感激!

Post by kane0615;1835954
cat test2.pl
#!/usr/bin/perl -w
use strict;
$^I=".bak";
while(<>){
    s/^(.*)/#$1/s;
    print;
}
./test2.pl data
这样执行就可以了,看来对$^I还是理解的不太好.

晨想

$ perldoc perlvar

$INPLACE_EDIT
       $^I     The current value of the inplace-edit extension.  Use "undef" to disable inplace editing.  (Mnemonic: value of -i switch.)

就是备份文件。

kane0615

非常感谢。这个变量只对命令行输入的文件有效是吧？

flyinflash

PHP 程序设计 第三版

heejun

恩
仅对@ARGV中的有效