[D]perl小程序求修改

Perl code

$^I=".dat";$outf="outfile.txt";unless(open OUT,">$outf"){die "cannot open $outf\n";}$outf=~s/(\.\w+?$)/.out/;while(<>){ s/Fred/Larry/gi; print OUT $_;}

这段程序需要将指定文件内的fred 全换成 larry,并且将输出文件扩展名改为.out 但是不能得到扩展名改变了的输出文件（文件内容是换过的，但文件本身的名称没换），哪里有问题呢？

---------------------------
Double行动：
原帖分数：20
帖子加分：20

[解决办法]

探讨

unless(open OUT,">$outf"){
die "cannot open $outf\n";
}
$outf=~s/(\.\w+?$)/.out/;

[解决办法]
1楼说的对，先把文件名变正确，再打开文件，这样就没有问题了