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

时间:2012-11-28 21:12:16

标签: perl perl-module fork dancer

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

我的一个示例路线如下:

post '/handle_data' => sub {

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

我的问题:是否有一种简单的方法可以在不阻止请求的情况下在另一个进程中执行长时间运行的任务?

我在父进程中尝试了fork and return,在孩子长时间运行的任务之后使用了exit,但是这一切似乎都阻止了在孩子完成之前发送的响应。 / p>

感谢任何帮助。

修改

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

1 个答案:

答案 0 :(得分:3)

fork和return似乎对我有用。

我试过了:

#!/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运行它,按预期工作 - “Content!\ n”立即返回给用户的浏览器,请求结束;分叉的过程会暂停十秒钟,然后发出警告(在终端上可见)然后退出。