perl - 如何获取原始帖子数据并使用 Apache2::Request 访问参数？

Question

Apache2::Request 似乎没有提供获取原始帖子数据的方法；有没有我想念的？

或者，有没有办法单独读取发布数据（在内容处理程序中 - 在那之前没有任何东西会弄乱发布数据）并用它初始化 Apache2::Request 吗？

Answer 1

来自 mod_perl 食谱：

my $r = shift;

my $content;
$r->read($content,$r->header_in('Content-length'));

my @pairs = split(/[&;]/,$content);

foreach my $pair (@pairs) {
    my ($parameter,$value) = split('=',$pair,2);
}