Perlの初心者です。２重ループの方法で困ってます。

質問

ある二つのファイル（moto1.csvとmoto2.csv）の２番目のフィールドが
おなじときに二つのファイルの中身をあわせて別のファイル（kekka.csv）を
作る作業をしています。
下記のソースで※２の場所で何回もファイルをオープンさせるととても重いので
※１でファイルを一回だけオープンさせて処理しようと思ったら。
内側のループ（moto2_Log）が一回しか処理されないので困っております。

何かよいアイデアがありましたらよろしくお願いします。

open(moto1_Log,"< moto1.csv");
open(kekka_Log,"> kekka.csv");
※１open(moto2_Log,"< moto2.csv");

while( <moto1_Log> ) {
chop;
@moto1_List=split(/,/);

※２ #open(moto2_Log,"< moto2.csv");
while( <moto2_Log> ) {
chop;
@moto2_List=split(/,/);

if($moto1_[1] eq $moto2_List[1]){
print kekka_Log $S_List[0];
print kekka_Log ",";
print kekka_Log $S_List[1];
print Export_Log ",";
print Export_Log $S_List[2];
print Export_Log ",";
print Export_Log $S_List[3];
print Export_Log ":";
print Export_Log $E_List[0];
print Export_Log ",";
print Export_Log $E_List[1];
print Export_Log ",";
print Export_Log $E_List[2];
print Export_Log ",";
print Export_Log $E_List[3];
print Export_Log "\n"; #改行コード
continu;
}
}
}

close (moto2_Log);
close(kekka_Log);
close(moto1_Log);

回答No.1

a-kuma

二つ目のファイルを一回読み込んだら、読み込み位置がファイルの一番お尻に
あるからですね。

二つ目のファイルを処理しおわったら、巻き戻しましょう。

open(moto1_Log, ...);
open(moto2_Log, ...);
while ( <moto1_Log> ) {
　　...
　　while ( <moto2_Log> ) {
　　　　...
　　}
　　seek(moto2_Log, 0, 0);　　# ← これ
}

ってな感じ。

＃ perl は良く知らないんですけど、多分OK

お礼

seekですね
理由は何と無く分かったいました。
戻し方が解りませんでした（リファレンスだけだと探すのが大変です）
ありがとうございます。