如何使用 CGI.pm 获取整个请求正文？

Question

我正在尝试编写一个 Perl CGI 脚本来处理 XML-RPC 请求，其中 XML 文档作为 HTTP POST 请求的正文发送。

CGI.pm 模块在从 HTTP 请求中提取命名参数方面做得很好，但我不知道如何让它为我提供整个 HTTP 请求正文（即我正在处理的 XML-RPC 请求中的 XML 文档）处理）。

如果不是 CGI.pm，是否有另一个模块能够从请求中解析此信息？ 我不想从环境变量中“手动”提取此信息。 谢谢你的帮助。

Answer 1

要处理所有情况，包括 Content-Type 为 multipart/form-data 时的情况，请在之前读取（并放回）原始数据CGI 确实如此。

use strict;
use warnings;

use IO::Handle;
use IO::Scalar;

STDIN->blocking(1); # ensure to read everything
my $cgi_raw = '';

{ 
  local $/; 
  $cgi_raw = <STDIN>;
  my $s;
  tie  *STDIN, 'IO::Scalar', \$s;
  print STDIN $cgi_raw;
  tied(*STDIN)->setpos(0);
}

use CGI qw /:standard/;
...

Answer 2

是的，可以使用 POSTDATA，但只有在请求内容类型未设置为“multipart/form-data”时才有效。

如果设置为“multipart/form-data”，CGI.pm 会进行自己的内容处理，并且 POSTDATA 不会初始化。

因此，其他选项包括 $cgi->query_string 和/或 $cgi->Dump。

$cgi->query_string 以 GET 格式返回 POST 的内容（param=value&...），并且似乎没有方法简单地获取客户端传入的 POST STDIN 的内容。

因此，要获取 POST 请求的标准输入的实际内容，如果您可以选择修改 CGI.pm，则可以修改第 620 行左右，以将 @lines 的内容保存在变量中的某处，如：

$self->{standard_input} = join '', @lines;

然后通过$cgi->{standard_input}访问。

Answer 3

您可以使用特殊参数名称 POSTDATA 获取原始 POST 数据。

my $q = CGI->new;
my $xml = $q->param( 'POSTDATA' );

或者，您可以直接读取 STDIN，而不是使用 CGI.pm，但这样您就会丢失 CGI.pm 所做的所有其他有用的内容。

POSTDATA 技巧记录在优秀的 CGI.pm 文档中 在这里。