解決済みの質問

PerlでFindFirst/FindNext

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

投稿日時 - 2001-02-25 19:11:51

QNo.44787

困ってます

質問者が選んだベストアンサー

こんなカンジ?

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

投稿日時 - 2001-02-26 17:57:23

ANo.2

2人が「このQ&Aが役に立った」と投票しています

[  前へ  |  次へ ]

ベストアンサー以外の回答(1件中 1~1件目)

ANo.1

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

投稿日時 - 2001-02-25 20:35:53

あわせてチェックしたい
  • ディレクトリ内の全ファイルをオープンする方法 ...
  • FindFirst複数条件 ...
  • findfirst("*",&ffblk,FA_DIREC)が・・・ ...
PR

OKWaveのオススメ

教えて弁護士さん!

お金の悩みQ&A特集はこちら