一次更新多个文件

use strict;

chomp(my $date = `date`);

$^I = ".bak";

while(<>) {

    s/^Author:.*/Author:Randal /;

    s/^Phone:.*\n//;

    s/^Date:.*/Date:$date/;

    print ;

}

如果$^I中式个字符串，该字符串就会变成备份文件的扩展名。

如果$^I设为空字符串，就会直接修改文件的内容，但不会留下任何备份。