複数のファイルから同時にデ−タを読み込むには？.
[上に]
[前に]
[次に]
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さん、早速ご教授頂きありがとうございます。
感激です。
教えて頂いた通り書き換えてやってみましたら
一発で成功しました。
いままで、かなり試行錯誤を繰り返しておりましたので、
感謝、感激です。
有り難うございました。
キレイな書き方にも挑戦してみます！！
[上に]
[前に]
[次に]