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

A 回答 (2件)

こんなカンジ?



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

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


最後にCloseDirでディレクトリハンドルを開放するのを忘れずに(笑)
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング