perl-cgiのリネームについて

質問

Perl-CGIで
ABCという、ディレクトリの中のファイルの名前を、ランダムな名前に変換したいのですがうまくいきません。
これを動作させるたびになぜか、どんどんファイルが減っていってしまいます。
どなたか、教えていただけないでしょうか?

宜しくお願い致します。

#!/usr/local/bin/perl

print "Content-Type: text/plain\n\n";

$| = 1;

my ($sec,$min,$hour,$mday,$mon,$year,$wno) = localtime(time);
my ($nowtime) = sprintf("%02d_%02d_%02d_%02d_%02d_",$year+1900,$mon+1,$mday,$hour,$min,$sec);

#ディレクトリのファイル個数を記録する
$dir = "./ABC/"; # ← ディレクトリを変数にセットする
opendir DIR, $dir;
@files = grep { !m/^(\.|\.\.)$/g } readdir DIR; # ← 「.」 「..」 以外のファイルを取得
close DIR;

srand;
for (my $i = @files; --$i; ) {
my $j = int rand ($i + 1);
next if $i == $j;
@files[$i, $j] = @files[$j, $i];
}

$num = 0;
use File::Copy;
foreach(@files){
$getpath = "$dir"."$_";
if( copy($getpath, "$dir".$nowtime.$num++.'.dat') eq 1){ $num++; unlink($getpath);}else{print "Copy Error"; exit;}
}

回答No.2

pipipi523 · ベストアンサー

>質問欄に書いたコードでファイルがどんどん減ってしまう原因
copyとunlinkの組み合わせの場合、
・copy先に同じファイル名のものがある場合→上書きcopyされたファイルが消える
・copy元とcopy先が同じ名前になった場合→unlinkで消える
だと思います

お礼

回答いただきありがとうございます。
とても、よく分かりました。
短い時間に何度も実行していたため、$nowtimeの値が変わる前に実行していました。また、よく見ると、この値が1秒単位ではなく1分単位になっているミスも発見できました。
ありがとうございました！！

回答No.1

pipipi523

ファイル名を変更するならcopyではなく、
rename関数を使うのが良いと思います
こんな感じでしょうか。

#!/usr/local/bin/perl
$dir = "./ABC/";
opendir DIR, $dir;
@files = grep { !m/^(\.|\.\.)$/g } readdir DIR; # ← 「.」 「..」 以外のファイルを取得
close DIR;

srand;
foreach(@files){
$newfile="";
$n=int rand(8)+3; #ファイル名文字数をランダムに決める
while($n-- > 0 && !exists($file{$newfile})){#存在しないランダムの英数字の文字列を作る
$newfile.=pack("c",rand(25)+0x41);
}
$file{$newfile}++;#使用したファイル名を記憶
rename("$dir"."$_" , "$dir".$newfile);#名前置き換え
}

お礼

無事、動作いたしました。
回答いただき本当にありがとうございました！！
ところで、ご質問欄に書いたコードでは、ファイルがどんどん減ってしまうのですが、私には、どうも、原因がつかめません。後学のため、もし、その原因が分かりましたら教えていただけると幸いです。