Question

我在Red Hat 5.2上使用mod_perl 2和Apache 2.2.3，我正在尝试访问请求头，但是Apache2 :: RequestRec headers_in方法（或者更确切地说，它的返回值）并没有像我期望的那样表现。

代码片段：

$logger->warn('version ' . $mod_perl::VERSION);
$logger->warn('r ' . $r);
my $headers = $r->headers_in;
$logger->warn('headers ' . $headers);
my $accept = $headers->get('Accept');
$logger->warn('got $accept');
$logger->warn($accept);

给出以下日志输出：

WARN version 2.000004
WARN r Apache2::RequestRec=SCALAR(0x2ae0598e9ef0)
WARN headers APR::Table=HASH(0x2ae06cad15a0)

一旦尝试访问APR :: Table，执行就会暂停。 APR :: Table的绑定接口具有相同的效果 - 即将get('Accept')行更改为：

my $accept = $headers->{Accept};

给出完全相同的日志输出。

根据上述链接文件：

此表可从PerlHeaderParserHandler阶段
开始提供

所以我希望我的代码在PerlResponseHandler阶段运行，能够访问标题。

有没有人有任何想法我做错了什么？

编辑：使用Data :: Dumper根本没有明确澄清问题。

代码：

use Data::Dumper;
$logger->warn(Dumper($r));
my $headers = $r->headers_in;
$logger->warn($headers);
$logger->warn(Dumper($headers));
$logger->warn('have dumped $headers');

输出：

WARN $VAR1 = bless( do{\(my $o = '47143456365192')}, 'Apache2::RequestRec' );

WARN APR::Table=HASH(0x2ae071b06fd0)

因此，即使通过Data :: Dumper尝试进入$ header也会导致执行暂停。

修改：尝试设置其中一个标题也会失败。

$logger->warn('reset accept');
$r->headers_in->{'Accept'}= 'everything';
$logger->warn('post set accept');

在

处停止日志输出

WARN reset accept

点。我也尝试了set(Accept => 'everything')替代方案，结果相同。

Answer 1

apache日志中有什么内容吗？看来如果你的代码停止执行，那么应该在某个地方说错误。

Answer 2

您是否尝试过在不将标头对象分配给$ header的情况下获取Accept标头：

my $accept = $r->headers_in->get('Accept');

这适用于我在PerlResponseHandler阶段运行的代码。

Answer 3

发现问题：

我需要添加

use APR::Table;

某处。有点奇怪，它很高兴能够创建一个APR :: Table对象。

mod_perl headers_in不起作用

3 个答案: