01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
それから、perl で cgi を書く時に一番恐いと思うのは、open() を使
う時。 perl の最大の設計ミスじゃないかと思うのだけど、 open() に
ファイル名として渡す文字列が `|' で始まっていたり、終わっている
と、パイプになってコマンド実行になる。だから、読み込み時は
open(F, "< $file") と常にしましょう。