Perlコーディング

ディレクトリ内のファイル

2007年11月27日
ディレクトリ内の各ファイルへのアクセスは
opendir(DIR, "ディレクトリ");
while ($file = readdir(DIR)) {
}
closedir(DIR);
でできます。

opendir(DIR, "ディレクトリ");で目的のディレクトリをオープン、
readdir(DIR)でディレクトリ内のファイル名が取得できます。$fileにファイル名が代入されます。
最後にclosedir(DIR);でディレクトリのクローズを忘れないように。


ファイル削除は
unlink($file);
で行います。

$fileに配列を渡すと、複数のファイルを削除できます。
@files = (file1,file2,・・・);
unlink(@files);


$del_num = unlink(@files);
とすると、削除に成功したファイル数が$del_numに返ってきます。