"血をもって書け。そうすればあなたは、血が精神だということを経験するだろう。"

懐古といえば

最近妙な本(いや本そのものは妙じゃないんだけど)に挑発されてPerlでGOTO文を使い始めた。

goto HELL if($in_death_march);

HELL: 
while($time<$morning)  {  &debug;  }

それはどうでもいいとして、Perlのnext,last,goto,returnはポストフィックスのifと組み合わせると確かに使い心地がよい。肯定・否定条件の結合や多重ネストが目立つとき、効果的に使えば元のコードよりは確実に直感的で分かりやすくなる、ということを学びました。

Perlベストプラクティス

Perlベストプラクティス