我有一个Perl脚本,它会分叉许多子进程.我希望有一些功能,比如xargs –max-procs = 4 –max-args = 1或make -j 4,其中Perl将保持给定数量的进程运行,直到它用完为止.
很容易说fork 4进程并等待它们全部完成,然后再另外四个,但我想保持四个或n个进程同时运行,一完成就分叉一个新进程.
在Perl中有一种简单的方法来实现这样的进程池吗？
解决方法
Forks::Super可以处理这个要求.
use Forks::Super MAX_PROC => 5,ON_BUSY => [ block | queue ];
对fork()的调用可能会阻塞,直到活动子进程数低于5,或者您可以将其他参数传递给fork调用,并且要执行的任务可以排队：
fork { sub => sub { ... task to run in subprocess ... } }
当一个子进程完成时,队列中的另一个作业将启动.
(我是这个模块的作者).