複数のファイルから同時にデ−タを読み込むには?.

[上に] [前に] [次に]
kentaku [E-Mail] [HomePage] 1999/04/01(木) 18:43:10
Perlでデ−タを読み込むには
一般的に
              open(IN, "datafile.txt");
              print while (<IN>);
              close(IN);
となっていますが、
複数のファイルから同時にデ−タを読み込むには
どのようにしたら良いのでしょうか?
何方様かご教授お願います。

複数の方が作ったデ−タファイルを一挙に検索したいと
思っています。

B-Cus 1999/04/01(木) 21:35:35
別に同時に読む必要はなく、順に片付けていけばいいわけです。

open(IN, "datafile1.txt"); @data1 = <IN>;
open(IN, "datafile2.txt"); @data2 = <IN>;
open(IN, "datafile3.txt"); @data3 = <IN>;

foreach ( @data1 ){
 if ( m/hoge/ ){ print "found in data1!";
}
foreach ( @data2 ){
 if ( m/hoge/ ){ print "found in data2!";
}
foreach ( @data3 ){
 if ( m/hoge/ ){ print "found in data3!";
}
とかね。

できれば、リファレンスを使ったキレイな書き方に挑戦して
みてください。

kentaku [E-Mail] [HomePage] 1999/04/02(金) 15:30:53
[[解決]]
B-Cusさん、早速ご教授頂きありがとうございます。

感激です。
教えて頂いた通り書き換えてやってみましたら
一発で成功しました。
いままで、かなり試行錯誤を繰り返しておりましたので、
感謝、感激です。
有り難うございました。

キレイな書き方にも挑戦してみます!!

[上に] [前に] [次に]