perl-Parallel-ForkManager

Ce module est destiné aux opérations qui peuvent être faites en parallèle lorsque le nombre de processus à forker doit être limité. L'usage typique est un téléchargeur qui récupérera des centaines/milliers de fichiers. Le code d'un téléchargeur ressemblerait à ceci : 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; D'abord, vous devez instancier le ForkManager avec le constructeur "new". Vous devez spécifier le nombre maximum de processus à créer. Si vous spécifiez 0, alors AUCUN fork ne sera fait ; c'est bien pour le débogage. Ensuite, utilisez $pm->start pour faire le fork. $pm retourne 0 pour le processus enfant, et le pid de l'enfant pour le processus parent (voir aussi perlfunc/fork). Le "and next" saute la boucle interne dans le processus parent. NOTE : $pm->start meurt si le fork échoue. $pm->finish termine le processus enfant (en supposant qu'un fork a été fait dans le "start"). NOTE : Vous ne pouvez pas utiliser $pm->start si vous êtes déjà dans le processus enfant. Si vous voulez gérer un autre ensemble de sous-processus dans le processus enfant, vous devez instancier un autre objet Parallel::ForkManager !