我正在尝试确定perl cgi程序中是否存在 GET
查询参数
当存在sf
时,这是我的查询:
http://server.com/support?page=hello&sf=1
第二,当不存在sf
时,这是我的查询:
http://server.com/support?page=hello
这是我想完成的一些伪代码:
if (sfVariable does not exist) {
// process code
}
我尝试过没有运气(只打印了变量以确保我们正确检索它(:
use CGI;
my $q = CGI->new;
my $sfVar = $q->param('sf');
print $sfVar;
编辑:
这是我所处的位置:
use CGI;
my $q = CGI->new;
my $page = $q->param('sf');
if(not defined $page){
print "no sf variablen";
}
我会出错。这是日志:
[Wed Feb 21 16:39:56.041581 2018] [cgi:error] [pid 6198] [client 111.111.111.111:57878] malformed header from script 'test': Bad header: no sf variable
[Wed Feb 21 16:42:02.146266 2018] [cgi:error] [pid 11150] [client 111.111.111.111:58047] malformed header from script 'test': Bad header: no sf variable
[Wed Feb 21 16:42:11.578022 2018] [cgi:error] [pid 29861] [client 111.111.111.111:58062] End of script output before headers: test
如果给定值不存在,则param
方法将返回undef
您需要这个
my $sf_var = $q->param('sf');
if ( not defined $sf_var ) {
print "There is no sf parametern";
}