これらの例でPerlで "最後の"動作が異なるのはなぜですか？

Question

このループは決して停止しない：

while (1) 
{ 
    while (1) 
    { 
     last; 
    } 
} 

をこのループはlastなければ

while (1) 
{ 
    do 
    { 
     last; 
    } 
    while (1); 
} 

を停止し、彼らは無限に似ています。 2番目のループ構造は、内部ループをループと見なさないようです。私は2番目の構造であると推定していますlastは実際には内側のループが始まる前に外側のループを終了します。しかし、なぜ？ do{}が最初の実行を完了した後、内側ループが実際に「後で」開始しますか？ perldoc -f lastから

Answer 1

：

最後に、このような評価 {}のような値を返すブロックを終了するために使用することができない、サブ{}、または実行{}、とgrepを終了するために使用すべきではありません（）または map（）操作。

do { 
    # ... 
} while (1); 

redoは、その中に適切に機能していない、ので、last、実際にはPerlでループではありませんnext。

{ 
    do { 
     last; 
    } while (1); 
} 

は、より直感的な解決策を持っていることででしょう：あなたは、あなたが期待するようlastが機能することを可能にするためにブロック内の式を行うラップすることができますので

単一のブロックは、しかし実際にはループですexectutionを制御センチネル値：

my $should_stop = 0; 
do { 
    if (<some-condition>) { $should_stop = 1; } 
} while (!$should_stop)