使用 Perl 的 Dancer 在子进程中分叉运行代码

Question

我在 perl 中有一个 Dancer 应用程序，用于处理 get/post 请求。

我的一个示例路线如下：

post '/handle_data' => sub {

    # perform some calculations
    ...
    # store some data
    ...
    # do some long running tasks
    ...
};

我的问题：有没有一种简单的方法可以在另一个进程中执行长时间运行的任务而不阻塞请求？

我在父进程中尝试了fork and return，在子进程长时间运行的任务之后使用exit，但这似乎阻止了响应发送，直到子进程完成。

感谢任何帮助。

编辑：

我最终切换到一个成熟的作业服务器，特别是 Gearman 的 perl 版本

Answer 1

分叉和返回似乎对我有用。

我试过了：

#!/usr/bin/perl

use Dancer;

get '/' => sub {
    fork and return "Content!\n";

    sleep 10; # do your actual work here
    warn "Child process done\n";
    exit;
};

dance;

通过独立服务器或通过 plackup/Starman 运行，按预期工作 - “内容！\n”立即返回到用户的浏览器，请求结束；分叉的进程挂起十秒钟休眠，然后发出警告（在终端上可见）然后退出。