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

質問

下記はデレクトリー./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 · ベストアンサー

＞./image/$files/にある全ての画像ファイル
ですから
rename ("./image/$files/$_","./image/$files/$abc.jpg");
の間違いではないですか

お礼

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