ディレクトリ全てのファイルを読み取るには？

質問

フリーのCGI掲示板を使ってます。ディレクトリ内に複数のログファイルがあるので、一括して編集・削除ができるように管理部分を改造したいのでアドバイスをお願いします。
一応、readdir関数でディレクトリ内にある全てのファイル名を取得でることは分かりましたが、open関数で全てのファイルを読み取らせる方法がわかりません。
open DIR "./log";
@files = readdir DIR;
close DIR;

#以下、オリジナルのソースです。
open(IN,"$logfile") || &error("Open Error: $logfile");
while (<IN>) {
my ($no,$dat,$nam,$eml,$sub,$com,$url,$hos) = split(/<>/);
#途中略
}
close(IN);

回答No.2

_--_1l1_1_ · ベストアンサー

エラー処理はオリジナルの&error()を使ったほうがよいかもしれないけど

use File::Spec;

my $dir = './log';

opendir my $dh, $dir or die "$dir:$!";
for ( readdir $dh ) {
my $file = File::Spec->catfile( $dir, $_ );

if ( !-f $file or !-r $file) {
print "$file is not file or readable\n";
next;
}

print "\n--- $file\n";
open my $fh, '<', $file or die "$file:$!";
while ( defined( my $line = <$fh> ) ) {
# 処理
# print $line;
# my ($no,$dat,$nam,$eml,$sub,$com,$url,$hos) = split /<>/, $line;
# ...
}
close $fh or die "$file:$!";
}
closedir $dh or die "$dir:$!";

お礼

ありがとうございます。
参考にさせていただいた結果、試行錯誤の末にようやく完成しました！

回答No.1

Tacosan

「一気に全てのファイルを読み込む」ことはできないので, 1つずつ読み込んでください.