AnyEvent::ForkManager(3pm) | User Contributed Perl Documentation | AnyEvent::ForkManager(3pm) |
AnyEvent::ForkManager - A simple parallel processing fork manager with AnyEvent
This document describes AnyEvent::ForkManager version 0.07.
use AnyEvent; use AnyEvent::ForkManager; use List::Util qw/shuffle/; my $MAX_WORKERS = 10; my $pm = AnyEvent::ForkManager->new(max_workers => $MAX_WORKERS); $pm->on_start(sub { my($pm, $pid, $sec) = @_; printf "start sleep %2d sec.\n", $sec; }); $pm->on_finish(sub { my($pm, $pid, $status, $sec) = @_; printf "end sleep %2d sec.\n", $sec; }); my @sleep_time = shuffle(1 .. 20); foreach my $sec (@sleep_time) { $pm->start( cb => sub { my($pm, $sec) = @_; sleep $sec; }, args => [$sec] ); } my $cv = AnyEvent->condvar; # wait with non-blocking $pm->wait_all_children( cb => sub { my($pm) = @_; print "end task!\n"; $cv->send; }, ); $cv->recv;
"AnyEvent::ForkManager" is much like Parallel::ForkManager, but supports non-blocking interface with AnyEvent.
Parallel::ForkManager is useful but, it is difficult to use in conjunction with AnyEvent. Because Parallel::ForkManager's some methods are blocking the event loop of the AnyEvent.
You can accomplish the same goals without adversely affecting the Parallel::ForkManager to AnyEvent::ForkManager with AnyEvent. Because AnyEvent::ForkManager's methods are non-blocking the event loop of the AnyEvent.
"new"
This is constructor.
Example
my $pm = AnyEvent::ForkManager->new( max_workers => 2, ## default 10 on_finish => sub { ## optional my($pid, $status, @anyargs) = @_; ## this callback call when finished child process.(like AnyEvent->child) }, on_error => sub { ## optional my($pm, @anyargs) = @_; ## this callback call when fork failed. }, );
"start"
start child process.
Example
$pm->start( cb => sub { ## optional my($pm, $job_id) = @_; ## this callback call in child process. }, args => [$job_id],## this arguments passed to the callback function );
"wait_all_children"
You can call this method to wait for all the processes which have been forked. This can wait with blocking or wait with non-blocking in event loop of AnyEvent. feature to wait with blocking is ALPHA quality till the version hits v1.0.0. Things might be broken.
Example
$pm->wait_all_children( cb => sub { ## optional my($pm) = @_; ## this callback call when finished all child process. }, );
"signal_all_children"
Sends signal to all worker processes. Only usable from manager process.
"on_error"
As a new method's argument.
"on_start"
As a new method's argument.
"on_finish"
As a new method's argument.
"on_enqueue"
As a new method's argument.
"on_dequeue"
As a new method's argument.
"on_working_max"
As a new method's argument.
Perl 5.8.1 or later.
All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.
AnyEvent AnyEvent::Util Parallel::ForkManager Parallel::Prefork
Kenta Sato <karupa@cpan.org>
Copyright (c) 2012, Kenta Sato. All rights reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
2022-07-04 | perl v5.34.0 |