CGI-BBS > CGI > Perl > Perlについてエラーログを吐かれないようにしたい。


カレッヂ
カレッヂ


質問者 初心者  投稿日 1/27(月) 11:41:23
お世話になります。ご教授願えればと思い投稿させていただきました。
#!/usr/bin/perl -w

my $check	 = "";
use CGI;
$cgi = new CGI;

$check = $cgi->param('check');

if ($check eq "on") { ←ここがUse of uninitialized valueだとエラーログに出ます。

なぜだか分かりません。
my $check	 = "";で初期化しているんですが・・・

よろしくお願いします。

プロバイダ参照:
サーバのOS:UNIXサーバ
パソコンのOS:WinNT系
エディタ:TextPAD
FTPソフト:
サーバ移転:していない
改造:していない
CGI習熟度:advanced

回答者 dee  [削除]  投稿日 1/27(月) 20:48:08
$check = $cgi->param('check');

unless (defined($check)){$check = '';}

if ($check eq "on") { };#←ここがUse of uninitialized valueだとエラーログに出ます。

==
こんな感じで変数を再定義してみてください。
質問者 初心者  [削除]  投稿日 1/28(火) 10:40:35
dee様、ありがとうございました。
エラーログに出力されなくなりました。
本当にありがとうございました。

このページは終了したので返信(回答)は書きこめません
 


Web裏技