0

我仍然在尝试将遗留的 perl 应用程序从 Apache 1.3.x(谁真正知道 perl 的版本)移植到 RHEL6 ......这是 Apache 2.2.x / perl 5.10.x

无论如何,如果有人知道等价于

use Apache::Constants qw(:common :response);

...需要重构以使用 Apache2 ...

use Apache2::Const qw(:common :response);  <--This is _not_ correct.

看起来有 :common,但是 :response 抛出错误:“unknown apache2_const:: group `response'”

另外,如果有人可以在这里“教人钓鱼”,将不胜感激。

4

2 回答 2

0

根据文档,使用 TAG 导入:common将带来以下内容:

Apache2::Const::AUTH_REQUIRED
Apache2::Const::DECLINED
Apache2::Const::DONE
Apache2::Const::FORBIDDEN
Apache2::Const::NOT_FOUND
Apache2::Const::OK
Apache2::Const::REDIRECT
Apache2::Const::SERVER_ERROR

您知道导入时您愿意使用哪些标签:response吗?如果是这样,请尝试在这里寻找它们

于 2012-10-02T17:37:22.183 回答
0

如果您不导入任何内容并使用use strict;,如果您使用未导入的常量,您几乎肯定会遇到编译错误。所以可以使用

use Apache2::Const qw( );

然后将您实际需要的内容添加到导入列表中,这通过查看编译时错误消息来确定。

于 2012-10-02T18:39:24.197 回答