Win98SE で、ActivePerl 5.8.6 Build 811
を使っています。

以下は、ある条件に一致するファイル名を、指定パターンと連番のファイル名にリネームするスクリプトです。

print "Old pattern: ";
$opat = <STDIN>;
chop($opat);
print "New pattern: ";
$npat = <STDIN>;
chop($npat);
print "Starting #: ";
$i = <STDIN>;
chop($i);
@flist = glob("$opat");
foreach $old (@flist) {
&#12288;&#12288;$new = sprintf("$npat", $i);
&#12288;&#12288;print "Renaming $old --> $new\n";
&#12288;&#12288;rename($old, $new);
&#12288;&#12288;++$i;
}
print "Done.\n";

&#12371;&#12398;&#12473;&#12463;&#12522;&#12503;&#12488;&#12399;&#27491;&#12375;&#12367;&#21205;&#20316;&#12375;&#12390;&#12356;&#12427;&#12398;&#12391;&#12377;&#12364;&#12289;&#12371;&#12428;&#12398;&#20808;&#38957;&#12395;&#12289;
&#12288;&#12288;use encoding 'shiftjis';
&#12434;&#20837;&#12428;&#12383;&#12384;&#12369;&#12391;&#12289;&#21205;&#12363;&#12394;&#12367;&#12394;&#12387;&#12390;&#12375;&#12414;&#12356;&#12414;&#12377;&#12290;
&#65288;rename &#12395;&#12456;&#12521;&#12540;&#12481;&#12455;&#12483;&#12463;&#12364;&#20837;&#12387;&#12390;&#12356;&#12414;&#12379;&#12435;&#12364;&#12289;&#12456;&#12521;&#12540;&#12481;&#12455;&#12483;&#12463;&#12434;&#36861;&#21152;&#12377;&#12427;&#12392;&#12289;$old
&#12364; No such file or directory
&#12392;&#12394;&#12387;&#12390;&#12375;&#12414;&#12356;&#12414;&#12377;&#12290;&#65289;

&#12371;&#12428;&#12399;&#12289;&#12394;&#12380;&#12391;&#12375;&#12423;&#12358;&#12363;&#65311;

&#12385;&#12394;&#12415;&#12395;&#12289;perl -d
&#12391;&#35519;&#12409;&#12424;&#12358;&#12395;&#12418;&#12289;-d
&#20184;&#12365;&#12391;&#12371;&#12398;&#12473;&#12463;&#12522;&#12503;&#12488;&#12434;&#21628;&#12435;&#12384;&#12384;&#12369;&#12391;
Perl &#12364;&#12463;&#12521;&#12483;&#12471;&#12517;&#12375;&#12390;&#12375;&#12414;&#12356;&#12289;&#12362;&#25163;&#19978;&#12370;&#12398;&#29366;&#24907;&#12391;&#12377;&#12290;

&#21407;&#22240;&#12364;&#12362;&#12431;&#12363;&#12426;&#12398;&#26041;&#12289;&#12424;&#12429;&#12375;&#12367;&#12362;&#39000;&#12356;&#12375;&#12414;&#12377;&#12290;