CGIモジュールを使いたいのですがエラーがでます。

質問

use CGI qw(standard);

if(!open(TOP,"$TOP_HTML")){&error('トップページデーターファイル読み取りエラー。'); }
else{
@topdata=<TOP>;
close(TOP);
}
・・・

================================
上のような例があるとして実行可能な状態になっています。
そこに
$year = param('year');
$mon = param('mon');
というparam関数をいれるとインターネットサーバーエラーになります。
モジュールをいままでつかったことがなく簡単に使えそうだと思い試したところいきなりエラー。

エラーログを調べたところ
Undefined subroutine &main::param called at C:/sample.cgi line 9.
となります。line 9は$year = param('year');の行です。なにがいけないのでしょうか？

回答No.2

buffalomasa · ベストアンサー

use CGI qw(standard);

ではなく、

use CGI qw(:standard);

です。
記述ミスですね。これで上手く動きます。

お礼

とほほ・・・
初歩的なミスでした。
これでうまくうごきました。
ありがとうございました。

回答No.1

kalze

CGIモジュール内で定義されている関数などは、
CGIクラスの関数として定義されています。
そしてクラスの定義しかしていませんから、実体がありません。

まぁおまじないのように以下のようにしてみては？

my $q = new CGI();
$year = $q->param('year');
$mon = $q->param('mon');

「Perl CGIモジュール」で検索するだけでも解説やサンプルがでてきますよ。

モジュールはいちいち自分で作らなくていい、作りたいものの機能部分だけに集中できるという利点はありますが、使い方はしっかり調べないと自分で把握できないバグを作りかねません。

しっかり使い方を調べることをお勧めします

お礼

CGIモジュールは便利そうなので勉強してつかえるようにします。
ありがとうございます。