Windows Azure の Perl での REST API を紹介するためのサンプルとして掲示板でも作ろうかと思ったのですが、なんというか、見込みの甘さに嵌りました。 世に出ている掲示板CGIのコードが汚い。 まぁ、難読化ツールを使っているのでしょうけど、use strict; を追加するだけで溢れるエラーの数々に、データ部を差し替えてやればいいや、とか思っていた見込みを放り投げて、一から作ってます(w で、溢れるグローバル変数は論外として(なんでこんなコードが世に溢れているのか理解しがたい)、次に気になったのが、フォームのコマンド文字列によって if 〜 elsif 〜 else がだらだらと続くコード。 コマンド・パターンか何かで簡単に書けないかとちょっと漁りました。 パッケージで関数名が取れるじゃないですか。あとはこれと eval を組み合わせれば、簡単にコマンド化できますよね