- ベストアンサー
PerlでFindFirst/FindNext
ディレクトリにある複数のファイルを順番に調べて読み出すには MSCやVC++ではFindFirstとFindNextを使ってファイル名を調べて オープンしますが、Perlではどうやればいいのでしょうか？
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんなカンジ？ $dir = './data/'; opendir( DIR, $dir); while( $file = readdir(DIR) ){ open( IN,$dir.$file ); ～なんか処理～ close( IN ); } closedir( DIR );
その他の回答 (1)
- cocky
- ベストアンサー率57% (232/402)
回答No.1
OpenDirで当該ディレクトリを開いて、取得したディレクトリハンドルに対してReadDirを実行すればファイル名の一覧が手に入るので、その結果を配列に格納してForeachループを回せばほぼ同じような処理が可能ですね。 最後にCloseDirでディレクトリハンドルを開放するのを忘れずに（笑）
