在mod_perl 2下关闭响应

Question

我试图找出是否有一种方法可以在mod_perl 2下完成响应而不返回主处理程序。 到目前为止，尚无法在文档中找到该方法。 以下是我要实现的示例：

#!/usr/bin/perl
# This is some mod_perl handler
use strict;
use warnings;
use Apache2::Const ':common';

sub handler {
    my $r = shift;
    if ($r->method eq 'POST') {
        # just to do something as example
        do_post_response($r);
    }
    $r->content_type('text/plain');
    print "Thank you, goodbye.";
    return Apache2::Const::OK;
}

sub do_post_response {
    my $r = shift;
    unless (check_somthing()) {
        # Suppose I find a situation that requires
        # a different response than normal...
        $r->content_type('text/plain');
        print "We have a situation...";
        $r->something_to_finish_the_request_immediatly(Apache2::Const::OK);
    }
}

在常规的Perl脚本中，既可以独立运行，也可以在mod_cgi下运行，我可以通过新的响应exit() ，但是在mod_perl下，我需要在原始handler子例程中返回某些内容。 这导致我跟踪整个调用链，在这些调用中所有调用都必须返回某些内容，直到我回到主handler为止。

例如，代替：

unless (check_something()) { ...

我需要做类似的事情：

my $check = check_something();
return $check if $check;

而且我还必须在主处理程序中执行类似的操作，这对于某些情况下的处理来说是非常不适当的。

是否有办法在嵌套调用中关闭请求，就像我在示例中试图说明的那样？

编辑：我发现我可以调用goto LABEL并将该标签放置在主handler子例程中的最后一次返回之前。 它可以工作，但仍然感觉像是一个肮脏的hack。 我真的希望有更好的方法。

Answer 1

我认为您仍然可以调用exit（），因为mod_perl会覆盖退出功能：

出口

在正常的Perl代码中，exit（）用于停止程序流并退出Perl解释器。 但是在mod_perl下，我们只希望停止程序流而不杀死Perl解释器。

如果您的代码中包含exit（）调用，并且可以继续使用它们，则不要采取任何措施。 mod_perl担心用自己的版本覆盖exit（）函数，该函数将停止程序流，并执行所有必要的清除操作，但不会终止服务器。 这是通过重写：

* CORE :: GLOBAL :: exit = \\＆ModPerl :: Util :: exit;

https://perl.apache.org/docs/2.0/user/coding/coding.html