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

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

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

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

while

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

解決済

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

ransky
ransky

総合スコア12

Perl

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

while

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

1回答

0評価

0クリップ

1306閲覧

投稿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);
が実行されています。
どこを修正すればよいでしょうか。

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

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

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

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

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

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

ただいまの回答率
87.20%

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

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

質問する

関連した質問

同じタグがついた質問を見る

Perl

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

while

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