一定時間が経過したフォルダの削除

質問

一定時間が経過したファイル削除のsauceを使って、サーバーのディレクトリを削除しようとしましたが指定した時間内のディレクトリが削除できません。間違っている個所をご指摘くださいますようお願い致します。

#古いディレクトリの削除
$dir='./z';
opendir(DIR, "$dir");
my @dirlist = grep /^*/, readdir DIR;
closedir(DIR);

my $expire_t = 15552000; #180日以上経過したファイル指定　　(1日は86400)
my $expire_d = 31536000; #365日以内に生成されたファイル指定
my $now = time;
foreach my $deldir (@dirlist){
my $mtime = (stat("$dir/$deldir"))[9];
if ($now > $mtime + $expire_t && $now < $mtime + $expire_d){
rmdir("$dir/$deldir");
}
}

どうぞ宜しくお願いします。

回答No.1

unacyo · ベストアンサー

消したいディレクトリの中にファイルが入っていませんか？
まずは、ファイルを全て消してから、ディレクトリを削除してください。

または、ファイルがあっても消す方法が参考URLにありましたので、参照してみてください。

参考URL：

http://itpro.nikkeibp.co.jp/article/Reference/20080930/315756/

お礼

ファイルがあっても消す方法を試しましたが、脳味噌不足で上手くいきませんでした；；
ファイルを削除してからディレクトリを削除する方法で上手くいきました。
ご教示ありがとうございました。