如何读取 Perl CGI 程序中的 URL 参数？

Question

如何读取 Perl CGI 程序中的 URL 参数？

Answer 1

对于 GET 请求，CGI 解析指定的参数并使它们可用通过 param() 方法。

对于 POST 请求，param() 将从 postdata 返回参数，但通过 URL 本身中的查询字符串指定的任何参数仍然可以从 url_param 获取() 方法。 （当 POST 请求大于 $CGI::POST_MAX 时，这会很有帮助；在这种情况下，CGI 只是丢弃 postdata，但您可以安排查询字符串参数来标识哪种类型请求它是为了提供一个好的错误消息。）

对于 ISINDEX 样式请求，请求的关键字可通过 keywords() 方法以及通过 param 获得() 在一个虚假的“关键字”参数中。

更新：如果您指的是“URL 参数”中的参数以外的其他内容，url() 方法会提供所请求的 URL 的全部或部分； 请参阅获取脚本的 URL。

Answer 2

建议您使用 ysth 提到的 URL 解析器，但如果您确实想要原始输入，可以通过以下方式获得：

对于 GET：

$contents = $ENV{'QUERY_STRING'};

对于 POST：

$contents = <STDIN>;

Answer 3

尝试这样的代码：

my @names = $query->param;
foreach $name ( @names ) {
    if (  $name =~ /\_/ ) { 
        next;
    } else {
        print "<p> ".$name."\t=\t".$query->param($name) . "</p>\n";
    }
}