修改当前目录下所有以.for为后缀的文件后缀为.f

#!/usr/bin/perl
while(<*.for>) {
$oldname = $_;
s/\.for$/\.f/;
rename $oldname, $_;
}