ファイル名の変更

質問

下記はデレクトリーabcのｊｐｇ画像ファイル名を(数字.ｊｐｇ)
読み込み順に(1.ｊｐｇ)に変更するコードですが,エラーになります、
#!"C:\perl\bin\perl.exe"
opendir(DIR,"./abc/"); # デレクトリopen
@DATA = grep /\.jpe?g/i, readdir(DIR); # デレクトリread
@SDATA = sort { $a cmp $b } @DATA; # ソート
for ($k=0; $k<=@SDATA; $k++) {
$new = $k.'.jpg';
rename ("$SDATA[$k]", "$new");
}
closedir(DIR);
exit;
よろしくお願いします。

回答No.4

mtaka2 · ベストアンサー

> しかし、画像の枚数が1回実行すると２枚少なくなり
> 再度実行すると今度は６枚少なくなってしまいます

・rename は、変更先と同名のファイルが既に存在していた場合、そのファイルは消えてしまいます。
・cmp は、文字列的にソートしますが、$k.'.jpg' で生成されるファイル名は、ソートすると順番が変わります。

たとえば、0.jpg～12.jpg の13ファイルある場合、
これをソートすると、
0.jpg
1.jpg
10.jpg
11.jpg
12.jpg
2.jpg
…
9.jpg

という順番になります。
これを、0.jpg～12.jpg にrenameすると、
rename("0.jpg", "0.jpg"); #なにも起きない
rename("1.jpg", "1.jpg"); #なにも起きない
rename("10.jpg", "2.jpg"); #これで、2.jpg が消える
rename("11.jpg", "3.jpg"); #これで、3.jpg が消える
rename("12.jpg", "4.jpg"); #これで、4.jpg が消える
rename("2.jpg", "5.jpg"); #これで、5.jpg が消える
以下略

といったことになります。
ファイルが消えるのを防ぐためには、
・作業用のディレクトリを作成し、対象ファイルを一旦そちらに移動する
などの操作が必要があります。
---ここから---
$tempdir = "tempdir".$$;
$num=0;
while (-d $tempdir) {
$tempdir = "tempdir".($num++);
}
mkdir($tempdir);
foreach(@SDATA) {
rename("./abc/$_", "$tempdir/$_");
}
for ($k=0; $k<@SDATA; $k++) {
$new = $k.'.jpg';
rename ("$tempdir/$SDATA[$k]", "./abc/$new");
print "rename '$SDATA[$k]', '$new'\n";
}
rmdir($tempdir);
---ここまで---
といった感じで。

お礼

何度も回答ありがとうございます、
参考書にも書いていないことを分かりやすく
回答していただき感謝いたします、
ファイルが消滅する理由がよくわかりました。

回答No.3

mtaka2

> エラーの明細です。

CGIで実行しているんですね。
だったら、CGIとして正しい出力をしておかないとダメです。
冒頭(#!の次の行あたり)に
> print "Content-Type: text/plain\n\n";
とでも追加してみてください。
ついでに、rename の次に
> print "rename '$SDATA[$k]', '$new'\n";
とでも入れておけば、どのファイルを処理しようとしているのか表示されて状況が分かりやすくなるかと思います。

補足

再度の回答ありがとうございます
下記のコ－ドで実行するとエラーは出なくなりました、
しかし、画像の枚数が1回実行すると２枚少なくなり
再度実行すると今度は６枚少なくなってしまいます、
よろしくお願いします。
#!"C:\perl\bin\perl.exe"

print "Content-Type: text/plain\n\n";
opendir(DIR,"./abc/"); #デレクトリopen
@DATA = grep /\.jpe?g/i, readdir(DIR); #デレクトリread
@SDATA = sort { $a cmp $b } @DATA; #ソート
for ($k=0; $k<@SDATA; $k++) {
$new = $k.'.jpg';
rename ("./abc/$SDATA[$k]", "./abc/$new");
print "rename '$SDATA[$k]', '$new'\n";
}
closedir(DIR);
exit;

回答No.2

mtaka2

具体的にどういうエラーが出ているのかわかりませんが、

> for ($k=0; $k<=@SDATA; $k++) {
これだとループの終了条件が1回多いです。$k < @SDATA にしないと。
(配列の要素数@SDATAに対し、添字は0～(@SDATA-1)。

> rename ("$SDATA[$k]", "$new");

readdir が返すのはファイル名だけで、ディレクトリ名は含みません。ですから、
> rename ("./abc/$SDATA[$k]", "$new");
と、ディレクトリも指定する必要があります。
(上記コードだと、変更後のファイルはカレントディレクトリに移動します。ディレクトリを移動させたくないなら、変更後のファイル名も "./abc/$new" にしてください。)

補足

回答ありがとうございます、エラーの明細です。
Server error!
The server encountered an internal error and was unable to complete your request.
Error message:
Premature end of script headers: henkou.cgi
If you think this is a server error, please contact the webmaster.
Error 500
miwaku99.ddo.jp
06/16/09 17:46:41
Apache/2.2.6 (Win32) DAV/2 mod_ssl/2.2.6 OpenSSL/0.9.8e mod_autoindex_color PHP/5.2.4

回答No.1

Tacosan

で, どんなエラーメッセージなのか見せてくれないんですか?