■

時間が無いと書けないなぁ・・・
perlのCGI.pmを使ってCGIを書いているのですが，
/cgi-bin/test.cgi?hoge=1
のようにリクエストが来たときに

$from = new CGI;
$a = $from->param('hoge');
unless(defined($a)){
    print "error
\n";
}

見たいに処理をしているのですが，
/cgi-bin/test.cgi
とリクエストが来た場合に，

unless($defined($from->param())){
    #処理するはず
    print "error
\n";
}

のように書けばこのエラーに引っかかると思ったのですが，上手く動かない．
何でだろう？？？

結局力技で環境変数のREQUEST_URIに"?"が存在するかどうかでチェックすることにする．