perl cgiで正規表現が無限にマッチする

質問

perl でcgiを作っています。フォームから受け取ったテキストから、正規表現を用いて、データを切り出そうと思っています。
以下のようなコードを書くと、マッチするのは一か所だけのはずなのに、無限回数マッチしてprintしつづけます。なにが間違っているのでしょうか。ご指導ください。

my $text = $in_data{'data_text'}; #フォームから受け取る
$text =~ tr/+/ /;
$text =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2", $1)/eg;

# invalidation
$text =~ s/[<>"'&\r\n]//g;
$text =~ s/&/&amp;/g;
$text =~ s/</&lt;/g;
$text =~ s/>/&gt;/g;
$text =~ s/"/&quot;/g;
$text =~ s/'/'/g;
$text =~ s/\r\n/<br>/g;
$text =~ s/\n/<br>/g;
$text =~ s/\r/<br>/g;

while ( $text =~ /Line(\d{1}):長さ:(\S+) km/){
print "Line$1: $2<br>";
}

回答No.1

asciiz · ベストアンサー

whileの条件式が偽にならなければ、ループは終了しません。
でもお書きのプログラムだと、$textの内容は変化しません。

つまり、ループしている部分を取り出すと、

while($text) {
# $textを何もいじらない
}

ということなのですから、ループが開始されたら、止まりません…。

while ( $text =~ /Line(\d{1}):長さ:(\S+) km/){
print "Line$1: $2<br>";
$text =~ s/Line(\d{1}):長さ:(\S+) km//; # マッチした部分を削除
}

例えばこのようにすれば、$textはだんだん短くなり、最後にはマッチしなくなってループから抜けるでしょう。

$textをいじるのがまずければ、別の変数にコピーしてそれで処理をしましょう。

お礼

極めて明快かつ迅速なご回答ありがとうございました。