修改mod_perl2中的POST请求

Question

有谁知道如何使用 mod_perl2 访问/修改 POST 请求数据。 在 GET 方法中可以获取/设置请求 QUERY 字符串：

  $args      = $r->args();
  $prev_args = $r->args($new_args);

如何在 POST 方法中获取/设置请求 QUERY 字符串？

Answer 1

使用 Apache2::Request::param 获取 POST 参数。

要进行设置，首先从 body 方法。将bless它转换为APR::Table 对象，然后使用其方法来操作数据。

Answer 2

我使用此 mod_perl2 代码片段成功解析通过 POST 方法提交的表单字段值：

use CGI;

my $req = CGI->new($r);
my $field_value = $req->param('form_field');

如果您不使用 CGI; 如上所示，而是使用以下代码：

my $req = Apache2::Request->new($r);
my $field_value = $req->param('form_field');

您可能会GET 方法成功。然而，在通过 POST 方法获取请求时，就我而言，我陷入了“预取 filter.c(270) 错误”的无限循环，并且请求将永远不会返回。