polog

packageを宣言しておいてから基礎的なサブルーチンを幾つかあらかじめ構築、最近お気に入りのGOTOメソッドを平文で使い、見事なスパゲッティコードを書き切った後デバッグ作業へ。何せ、癖で書いた再帰関数以外はほぼ全てGOTOしまくり。for(keys %c)でなくwhile(my($a,$b) = each %c){}でコードした部分で全部バグが出る。大体添字のインクリメントなんて使うからいけない。シンボリックリファレンスの多重ネストで構築した構造体がぴこぴこと音を立てて増えていく。正しいsystem関数の使い方が呼吸をする前に僕のblessした変数が編隊を組んだトラックに乗って行ってしまった。