Perl使用技巧13：使用CGI模块获取参数

arche77

use CGI; 最常见。我一般习惯用use CGI::Simple模块。具体什么区别没看，一般我常用的函数都有。

use CGI::Simple qw(-debug1);

使用debug参数支持命令行输入参数，这样就不用非要放在浏览器中了。

$cgi=CGI::Simple->new();

生成一个对象。

sub param {
        my %hash=$cgi->Vars;
        deep_utf8_decode(\%hash);
        return @hash{@_};
}

写一个获取参数的方法：

$a=param('a');
say $a;

($a,$b)=param('a','b');
say "$a,$b";

运行结果如下：

localhost:cgi arche$ perl test.pl "a=1&b=2"
1
1,2

是不是很方便，赋值给标量，可以获取1个参数，赋值给数组，可以获取多个参数。