perl中$^I的使用方法

l2002924700

我现在想完成一个任务，就是想要使用perl批量修改文件内容，在网上查了之后，发现可以使用$^I变量，我也知道这个变量好像是给原始文件创建一个副本，但是他到底怎么使用，哪位大侠可否给个例子，谢谢！

l2002924700

再追问一个问题，这种操作符是否只有在使用钻石操作符的时候才起作用？钻石操作符是否指的就是在一对尖括弧中间没有任何内容的尖括弧，尖括弧中如果有了内容，是否就不称为钻石操作符了？

17133983

这个好像是正则表达式

xlt9999

用$^I变量更新多个文件
        例子：
        $^I= "~";
        while (<>) {
        s/^Author:.*/Author: Randal L. Schwartz/;
        s/^Phone:.*\n//;
        s/^Date:.*/Date: $date/;
        print;
        }
        这时候，perl会将打开的多个文件(假设为*.dat)，的文件名改为*.dat~，然后创建一个新的*.dat，将修改后的内容写入data1.dat。这样用户再更新文件时，就无需打开多个文件进行操作了。$^I 的值还可以通过在调用程序时，加-i 选项来改变，如 perl -i ".bak"。

l2002924700

回复 4# xlt9999


    十分感谢！

xlt9999

回复 5# l2002924700


    不客气，呵呵。大家多交流才能学的更快。

icfbicfb

我怎么记得 -i 是in place edit的意思，就是直接覆盖该文件，

不用写到另外一个新文件，

cxk321

good explaination

sjtusonic

回复 7# icfbicfb


    -i 后的参数会传入$^I中。

比如 perl -p -i.bak -e 'some change' file.txt

会将:  旧版file.txt - > file.txt.bak;   change后的-> file.txt

chanshi634

回复 9# sjtusonic


    请问在上面的例子中，我如果不用while(<>)，而是open（FH, "filename"）,然后while(<>)的话，这样就不能保存备份文件，然后in place修改源文件...