perl - 是否有与 PHP 的 ignore_user_abort() 等效的 mod_perl2/Perl 5？

Question

我正在编写一个内部服务，需要为一个长时间运行的进程访问 mod_perl2 实例。该作业是从 HTTP POST 触发的，mod_perl 处理程序将其拾取并完成工作。它可能需要很长时间，并准备好异步处理，所以我希望我可以在它运行时终止 HTTP 连接。

PHP 有一个函数 ignore_user_abort()，当与正确的 header 结合使用时，可以提前关闭 HTTP 连接，同时让进程保持运行(此技术在 SO 上多次提到) .

Perl 有等价物吗？我还没找到。

Answer 1

好的，我明白了。

Mod_perl 在这里有 PHP 的“相反”问题。默认情况下，mod_perl 进程保持打开状态，即使连接被中止，PHP 默认关闭进程。

Practical mod_perl book说明如何处理中止的连接。

(顺便说一句，出于这个特定问题的目的，作业队列在列表中的位置低于“断开连接”的 http 进程)

#setup headers
$r->content_type('text/html');
$s = some_sub_returns_string();

$r->connection->keepalive(Apache2::Const::CONN_CLOSE);
$r->headers_out()->{'Content-Length'} = length($s);

$r->print($s);
$r->rflush();

#
# !!! at this point, the connection will close to the client
#

#do long running stuff
do_long_running_sub();