PerlでFindFirst/FindNext

ディレクトリにある複数のファイルを順番に調べて読み出すには
MSCやVC++ではFindFirstとFindNextを使ってファイル名を調べて
オープンしますが、Perlではどうやればいいのでしょうか？

No.1 回答者： cocky 回答日時： 2001/02/25 20:35

OpenDirで当該ディレクトリを開いて、取得したディレクトリハンドルに対してReadDirを実行すればファイル名の一覧が手に入るので、その結果を配列に格納してForeachループを回せばほぼ同じような処理が可能ですね。

最後にCloseDirでディレクトリハンドルを開放するのを忘れずに（笑）

No.2 ベストアンサー 回答者： dany 回答日時： 2001/02/26 17:57

こんなカンジ？

$dir = './data/';
opendir( DIR, $dir);
while( $file = readdir(DIR) ){
open( IN,$dir.$file );
～なんか処理～
close( IN );
}
closedir( DIR );