我从Perl 5.1迁移Perl脚本,它涉及以下代码,不再有效:
#!/usr/bin/perl
use CGI ':standard';
print header;
if (param()) {
if (!(param('rno'))) {
print ('Improper reference!');
}
$rno=param('rno');
## .. etc
}
例如假设我从www调用脚本为host.com/cgi/myscript.pl?rno=20
脚本应该识别名称/值对并将值20存储在变量$ rno中,它不再存在。
实际上我认为这最终成了一个技巧问题!
在我的示例中,我随意使用了20的值,但是当我进行测试时,我将查询设置为rno=0
- 我怀疑触发的行为与我预期的不同。
我想我需要区分rno值为空和" 0"