新・たけぞう瀕死の日記 - ひどいCGIスクリプト

■ [Perl]ひどいCGIスクリプト 個人的に頼まれてネットで配られているCGIスクリプトの改造なんかをすることがあるのですが、巷でもよく言われているようにCGI系サイトで配布されているものは本当にひどいコードが多いです。折角なのでこれらのひどいコードに共通する例をいくつかあげてみようと思います。 もちろんuse strict;などとは書かれていない myとか一切使わない ソースがShiftJISで書かれている モジュールは一切使っていないが（たぶん必要に迫られて）jcode.plだけは使っている Perl4で時が止まっている 関数は使っているが値は全てグローバル変数で受け渡している 以上のような理由によりmod_perlでは動きそうな気配がまったくない 変数名や関数名が無闇に短い インデントされてない（全ての行が左寄せになっている） 空白も空行も全部詰めて書く 意味もなく1行にたくさん

[kits]

プログラミングの技量が低くとも著作権とは関係無い。

[ryuzee]

激しく同意！

[rgfx]

でもレンタル鯖でとりあえず動かせて試せるのは得てしてそういうコードなんだよね。駄目サンプルによる風評被害。出回っているフリーのスクリプトが世代交代するまで待てば解決するかな。JS並に10年待てばいいかも。

[Kenta_K]

つい1年くらい前までPerlってそういうもんだと思ってた。。

[makamaka_at_donzoko]

今から10数年前にCGIのソース公開してた。仕事するようになってから、おぞましいので書き直そうと思ったまま、幾星霜。未だ放置。（見返したくないの）ごめんなさい。

[srkzhr]

"関数は使っているが値は全てグローバル変数で受け渡している "