perl - Apache2::Const qw() 等效于 Apache::Constants qw(:common :response)

Question

我仍然在尝试将遗留的 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'”

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

Answer 1

根据文档，使用 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吗？如果是这样，请尝试在这里寻找它们

Answer 2

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

use Apache2::Const qw( );

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