4

我在 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 尝试进入 $headers 似乎也会导致执行停止。

编辑：尝试设置其中一个标题也失败了。

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

停止日志输出

WARN reset accept

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

4

3 回答 3

1

apache日志中是否有任何内容？如果您的代码停止执行，似乎应该在某处出现错误，说明原因。

于 2009-04-06T12:58:39.773 回答
1

发现问题：

我需要添加

use APR::Table;

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

于 2009-04-08T05:31:19.270 回答
0

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

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

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

于 2009-04-07T20:23:56.620 回答