关于perl更新多个文件
大家好，我按照教程的方法做实验：有一个名为fred03.dat的文件，内容如下：
Program name:grantie
Author:Gilbert Bates
Company:RockSoft
Department:R&D
Phone:+1 503 555-0095
Date:Tues March 9,2004
Version: 2.1
Size: 21k
statues: Final beta

程序如下：

Perl code

#!/usr/bin/perl -wuse strict;use diagnostics;chomp(my $date=`date`);$^I = ".bak"; #dot is not ignoredwhile(<>){  s/^Author:.*/Author:Randal L.Schwartz/;  s/^Date.*:/Date:$date/;  s/^Phone:.*\n//;  print;}

运行程序# ./TestFiles
输入命令# fred03.dat

但是为什么fred03.dat没有更新呢？谢谢大家！

[解决办法]
1. 你的帖子和标题里的“多个文件”是什么关系？
2. fred03.dat是一个命令？你在哪里输入这个命令的？
[解决办法]
TestFiles 和 fred03.dat 放在同一个目录下，命令行下把fred03.dat 传递给程序就可以了
./TestFiles fred03.dat