perl 修改文件内容

use strict;
use warnings;

 my $file_name ="E://fred03.dat";
 open  FILE , $file_name or die "[Error] to open file$!" ;
 my $date = localtime();
 $^I =" .bak ";
 
 while(<FILE>){
 s/^Author:.*/Author: Randal L. Scharwartz/;
 s/^Phone:.*/n//;
 s/^Date:.*/Date: $date/;
 print;
}

 

 

fred03.dat 内容如下：

 

Promram name: granite
Author: Gilbert Bates
Company: RockSoft
Department: R&D
Phone: +1 503 555-0095
Date: Tues March 9, 2004
Version: 2.1
Size: 21k
Status: Final beta