在mod_perl环境中调用清理代码

Question

一些引用来自实用的 mod_perl

“通常，单个进程在退出之前会处理许多请求，因此如果希望 END 块在每个请求处理结束时执行某些操作，则不能使用 END 块。”

，在我的 a.cgi 脚本中：

my $flag = 1;

END {
    # Value for $flag is undefined, if this script is run under mod_perl. 
    # END block code only executed when process to handle a.cgi exit. 
    # I wish to execute some code, just before process to handle a.cgi exit.
    if ($flag) {
        # clean up code.
    }
}

本书重新开始 $r->register_cleanup(sub { #cleanup } );

但是，

1. 如何在a.cgi脚本中获取$r？
2. 子例程可以访问 my 范围标志变量吗？
3. 这个 $r->register_cleanup 应该放在 a.cgi 脚本中吗？ 我只想为 a.cgi 脚本执行清理代码。 其余的则不然。

Answer 1

1. 我的$r = Apache->请求;

2. 是的，但请参阅http://modperlbook.org /html/6-2-Exusing-Apache-Registry-Secrets.html 和接下来的几页，有关局部变量和函数的范围。

3. 是的，仅在您希望运行时才注册该函数。

Answer 2

如果我理解正确的话，您有一个脚本想要在 mod_perl 下运行并作为普通 CGI 运行，听起来您正在使用 Apache::Registry 来执行此操作。

您有清理代码，仅当您作为 CGI 脚本运行时才运行。

您需要检测您是否在 mod_perl 下运行。 这相当容易。 最简单的方法是检查您的环境：

unless ($ENV{MOD_PERL})
{
   #... cleanup code here.
}

如果您希望在脚本在 Apache::Registry 下终止时运行某些内容，则只需注册一个清理处理程序。

如果您确实想要这样做，您应该将清理代码放入子程序中，并从 CGI 中的检查

unless ($ENV{MOD_PERL})
{
   cleanup_sub();
}

和清理处理程序中调用该子程序：

my $r = Apache->request;
$r->register_cleanup(sub { cleanup_sub() } );