while文がうまく動かない

a.txt
a
b
c

b.txt
x
y
z


として次のプログラムを実行


open(A,"<a.txt");
open(B,"<b.txt");
while($a=<A>){
while($b=<B>){
print "$a>>>$b<br>";
}
}
close(A);
close(B);

すると実行結果が以下のようになりました。

a>>>x
a>>>y
a>>>z


上の結果だけではなくてa.txtがbの時cの時も出力されるつもりで書いたのですがなぜかaの時しか出力されません。どなたか理由が分る方いませんか?

ちなみに
Linux FedoraCore2
perl5
を使用しています。

No.2 ベストアンサー 回答者： masaboo 回答日時： 2006/01/26 15:37

open(A,"<a.txt");

while($a=<A>){
　　open(B,"<b.txt");
　　while($b=<B>){
　　　　print "$a>>>$b<br>";
　　}
　　close(B);
}
close(A);

なのでは?

この回答へのお礼

できました。ありがとうございました。

お礼日時：2006/01/26 16:08

No.3 回答者： hara_peko 回答日時： 2006/01/26 15:42

open(B,"<b.txt");

を最初のwhileループの内側に移動してください。

open(A,"<a.txt");
while($a=<A>){
open(B,"<b.txt");
while($b=<B>){
print "$a>>>$b<br>";
}
}

今回のとは関係有りませんが、変数$a,$bはsortの時に使われる変数なので、通常スクリプトを書く時に使うとuse strictしていてもミスに気づきづらくなります。できればさけた方が無難でしょう。

この回答へのお礼

できました。ありがとうございました。

お礼日時：2006/01/26 16:08

No.1 回答者： ttyp03 回答日時： 2006/01/26 15:36

原因は B が A の１回目のループでEOFまで達してしまうからです。

A の２回目のループで B から取得しようとしても EOF なので何も取得できず終了しています。
対処としては B のループが終わったあとにファイルポインタを先頭に戻す必要があります。

open(A,"<a.txt");
open(B,"<b.txt");
while($a=<A>){
　while($b=<B>){
　　print "$a>>>$b<br>";
　}
　seek(B,0,0);
}
close(A);
close(B);

この回答へのお礼

ご回答ありがとうございました。

お礼日時：2006/01/26 16:07