perl的特殊变量$^I

    在文本处理时经常会碰到这样的情况：有一批文件需要修改里面的内容，但是又希望保留原来文件的内容。这个时候Perl提供了一个很方便的变量$^I，将需要备份文件的后缀保存在该变量后，我们在修改文件内容时，Perl会：

1、先将原文件打开并另存为以“原文件名+$^I存放的后缀字符”为文件名的备份文件。

2、在原文件上修改。

例如下面一段程序，我要将所有.dat文本中的abc改为dfg，并备份成.bak的文件

#!/usr/bin/perl -w

use strict;

$^I=".bak";

while(<>) {

  s/abc/dfg/g;

  print;

}