perlでwhileのネストの挙動がわからない

Question

前提・実現したいこと

whileのネストで処理したいのですが、挙動が理解できません。
修正方法をご教授いただければ幸いです。

該当のソースコード

Perl

1 my $outfile = 'output.txt';
2 my $Input = 'list.txt';
3 my $List = 'test.txt';
4 open(IN , $Input) or die "$!";
5 open(LI , $List) or die "$!";
6 open(DATA, "+> $outfile") or die "$!";
7
8 while (my $In_line = <IN>) {
9 chomp($In_line);
10 @In_data = split(/\t/, $In_line);
11 print "In-$.$In_data[1]\n"; #確認
12 while (my $Li_line = <LI>){
13 chomp($Li_line);
14 @Li_data = split(/\t/, $Li_line);
15 $ENSG = substr($Li_data[9], 1, 15);
16 print "In--$.$In_data[1]\n"; #確認
17 print "LI--$._$ENSG\n"; #確認
18 if ("$In_data[1]" ne "$ENSG" ){
19 $ENST = substr($Li_data[11], 1, 15);
20 push(@In_data, $ENST);
21 print DATA "@In_data\n";
22 }
23 }
24 }
stdoutに出力された部分は以下の通りです
In-1_ENSG00000259952
In--1_ENSG00000259952
LI--1_ENSG00000223972
In--2_ENSG00000259952
LI--2_ENSG00000227232
In--3_ENSG00000259952
LI--3_ENSG00000227232
In-2_ENSG00000213375
In-3_ENSG00000268485
In-4_ENSG00000268702

#調べたこと
perl -dで１行ずつ実行すると、
In-1_ENSG00000259952
In--1_ENSG00000259952
LI--1_ENSG00000223972
In--2_ENSG00000259952
LI--2_ENSG00000227232
In--3_ENSG00000259952
LI--3_ENSG00000227232
を出力するところまでは、自分の期待通りに動いていますが、２周目の
11行目 print "In-$._$In_data[1]\n"; #確認
で
In-2_ENSG00000213375
が出力されたあと、
12行目 while (my $Li_line = <LI>){
13行目 chomp($Li_line);
ではなく、
8行目 while (my $In_line = <IN>) {
9行目 chomp($In_line);
が実行されています。
どこを修正すればよいでしょうか。

Answer 1

2周めに入ったとき、<LI>のポインタはどこを指しているでしょうか？ もちろんファイルの末尾です。よって2週目以降このコードでは内側のループは実行されません。
2周めのwhileに入る直前にファイルをopenし、内側のwhileからでた時点でこれをcloseしてください（クローズは多分書かなくても大丈夫ですが、書いておいたほうが安全です）。

Comments

[ransky]

KojiDoi様

Open位置の変更で問題解決いたしました。
ありがとうございました。