redoを実行するとスカラー変数の値がundefになってしまうのはどうしてでしょうか？

質問

はじめまして。
質問があります。
まずは以下のコードを見てください。
----------------------------------------------------------------
use strict;
use warnings;

open(FILE,'redo01.txt') or die "$!";
while(my $line = <FILE>) {
print "undef\n" unless( defined($line) );
chomp($line);
if($line =~ /---$/) {
$line .= <FILE>;
redo;
}
print $line,"\n";
}
close(FILE);
----------------------------------------------------------------
--redo01.txt----------------------------------------------------
zero---
one---
two---
three---
four
----------------------------------------------------------------
ファイルから一行を読み込んできてスカラー変数$lineに代入して、
redoを実行しながら$lineの値をどんどん連結していき最後に文字列を
表示させようと思っていたのですが、なぜかredoを実行後
ループ内の先頭行に制御を移してから$lineの値を調べてみると、
undefになってしまいます。事実、chomp()関数やパターンマッチ、
print関数を実行すると、エラーになってしまいます。なぜ$lineの値
がundefになってしまうのでしょうか？どうかご教授お願いします。

回答No.1

sakusaker7 · ベストアンサー

多分、while の条件部で宣言しているのが原因だと思います。
このような宣言をした場合、多少違いがありますが基本的には

while (...) {
my $line;
}

のように宣言したときとほぼおなじ有効範囲を持ちます。
とすると、redo は条件部分の再評価なしにループを再実行するので、
while の括弧の中にある宣言だけが有効になり、代入操作は行われない
こととなり、結果として変数の中身は空になる。
ということになっているのではないかと思います。

実際、while (my $line = <FILE>) を
my $line;
while ($line <FILE>) {
とすると、多分期待通りに動いています。

変数の宣言の位置が微妙ですが、このロジックでやるなら
宣言位置をいじるよりないと思います。

お礼

sakusaker7様へ
連絡が遅れましてすみませんでした。朝お礼しようと思っていたのですが、ここのサイトの更新ができませんでしたので、お礼が遅れて
しまいました。改めまして
ご回答ありがとうございまいした。
今後は、redoを使用するときは、変数宣言の位置に気をつけていきたい
と思います。ありがとうございました。