2011年4月27日水曜日

多重ループをエレガントに一気に脱出する方法



Perlで多重ループの内側から一気に外まで脱出する方法です。 処理に不要な変数などが減らせますのでバグ防止と見やすさに繋がります。 以下にサンプルコードを書いて置きます。


#Perlで一気にループを抜けるエレガントな方法
#一番外のループにラベルを付ける
OUTER: for my $i (1..10){
#内側のループ
for my $j (A..Z){
#もし条件が成立したら一気に外側のループを抜ける
last OUTER if ($i > 5);
print $j.$i;
}
print "\n";
}

0 件のコメント:

コメントを投稿