質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

while

Whileは多くの言語で使われるコントロール構造であり、特定の条件が満たされる限り一連の命令を繰り返し実行します。

Q&A

解決済

1回答

1929閲覧

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

ransky

総合スコア12

Perl

Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

while

Whileは多くの言語で使われるコントロール構造であり、特定の条件が満たされる限り一連の命令を繰り返し実行します。

0グッド

0クリップ

投稿2019/04/17 08:27

前提・実現したいこと

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で1行ずつ実行すると、
In-1_ENSG00000259952
In--1_ENSG00000259952
LI--1_ENSG00000223972
In--2_ENSG00000259952
LI--2_ENSG00000227232
In--3_ENSG00000259952
LI--3_ENSG00000227232
を出力するところまでは、自分の期待通りに動いていますが、2周目の
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);
が実行されています。
どこを修正すればよいでしょうか。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

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

投稿2019/04/17 09:14

KojiDoi

総合スコア13669

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ransky

2019/04/18 00:27

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

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問