デレクトリーの画像フアィルのフアィル名の変更

下記はデレクトリー./image/$files/にある全ての画像フアィルを読み込んだ番号順にフアィル名を変更したいのですがよろしくお願いします。
opendir(DIR,"./image/$files/");
@dirs = readdir(DIR);
close(DIR);
foreach(@dirs) {
if ( $_ eq '.' || $_ eq '..' ) { next; }
$abc++;
print "$abc\n";
print "$_\n";
rename ("./image/$_","./image/$abc.jpg");

}
exit;

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2006/07/27 11:37

＞./image/$files/にある全ての画像ファイル

ですから
rename ("./image/$files/$_","./image/$files/$abc.jpg");
の間違いではないですか

この回答へのお礼

有難うございます、
rename ("./image/$files/$_","./image/$files/$abc.jpg");
で出来ました。

お礼日時：2006/07/27 13:37