perl-Parallel-ForkManager

Este módulo está pensado para operaciones que pueden hacerse en paralelo donde el número de procesos a bifurcar (fork) debe limitarse. El uso típico es un descargador que recuperará cientos/miles de archivos. El código de un descargador se vería algo así: use LWP::Simple; use Parallel::ForkManager; ... my @links=( ["http://www.foo.bar/rulez.data","rulez_data.txt"], ["http://new.host/more_data.doc","more_data.doc"], ... ); ... my $pm = Parallel::ForkManager->new(30); LINKS: foreach my $linkarray (@links) { $pm->start and next LINKS; # do the fork my ($link, $fn) = @$linkarray; warn "Cannot get $fn from $link" if getstore($link, $fn) != RC_OK; $pm->finish; # do the exit in the child process } $pm->wait_all_children; Primero necesita instanciar el ForkManager con el constructor "new". Debe especificar el número máximo de procesos a crear. Si especifica 0, entonces NO se hará ningún fork; esto es bueno para depuración. A continuación, use $pm->start para hacer el fork. $pm devuelve 0 para el proceso hijo, y el pid del hijo para el proceso padre (véase también perlfunc/fork). El "and next" salta el bucle interno en el proceso padre. NOTA: $pm->start muere si el fork falla. $pm->finish termina el proceso hijo (asumiendo que se hizo un fork en el "start"). NOTA: No puede usar $pm->start si ya está en el proceso hijo. Si quiere gestionar otro conjunto de subprocesos en el proceso hijo, ¡debe instanciar otro objeto Parallel::ForkManager!