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; }