2009-12-17 お仕事 雑記 いま、昔に書かれたPerlのCGIを書き直し中。 use strict; use warnings; されていないのももちろん、my()されてないわ、グローバル変数に値入れてサブルーチン終わってたりとか、500行近いサブルーチンとか、訳が分からない変数名とか、使ってない変数が冒頭で宣言だけされてたとか、system()の返却値をチェックしてないとか、open()を2引数で使ってるとか、map()とかgrep()なら1行なところに何十行も費やしてたとかで、たいへんです。