2008-03-16 9.9 ファイル名を変更する Perl Cookbook foreach関数とrename関数を使用する。 foreach $file (@NAMES) { my $newname = $file; # $newnameを変更する処理を書く rename($file, $newname) or warn; }