特定のフォルダー内の全てのファイルを削除するには

質問

お世話になります。
Ｐｅｒｌで特定のファイルをunlinkで削除することは、したことがあるのですが、特定のフォルダ例えばCGIプログラムのあるフォルダ配下の「./temp」フォルダー内の全てのファイルを削除するプログラムは、どのように記述すればよいのですか？よろしくお願いします。

回答No.2

twinkleluz · ベストアンサー

globを使ってファイルの一覧を取得しましょう。

@list = glob('./temp/*');
foreach $file(@list)
{
unlink($file);
}

フォルダを消すときは、さらに

rmdir('./temp');

削除はくれぐれも慎重に！

お礼

ばっちりいけました。
ありがとうございます。

回答No.1

kochory

systemでシェルのrmコマンドを呼び出せばすむことでは？

ただ注意として、フォルダの指定は絶対パスですること。
相対パスを用いると、スクリプトがどこで実行されるかによって
カレントディレクトリが変わってしまうのでパスの展開結果が変わり
重要なファイルを消してしまう恐れが多分にあります。

例えばその"./temp"が"/usr/cgi/temp"だとしたら、
system("rm -f /usr/cgi/temp/*");
とすればいいでしょう。

くれぐれも慎重にどうぞ。

お礼

ありがとうございます。
ＵＮＩＸのシェルコマンドとかはつかった事が無くて・・・仰っていることが、よくわかりません。