Création de process

Version imprimable

30/11/2006, 10h43
vodevil

Création de process
J'ai un script que j'aimerai parallélisé, j'ai pensé un temps a ces satané threads mais sa marche pas ce truc comme d'hab :aie: (l'espoir fait vivre)

Je veux donc utiliser des process avec fork(), seulement je me pose la question comment un père peut il générer plusieur fils ?

j'ai fait comme cela :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 my pid = fork(); if ($pid) { .... } else { my $pi = fork(); if ($pi) { .. } else { ... } ... }
Mais ce n'est pas très propre

Je cherche donc une méthode plus "propre"
30/11/2006, 11h34
Woufeil

Citation:

Envoyé par vodevil

Mais ce n'est pas très propre

Je cherche donc une méthode plus "propre"

Bonjour.
J'ai bien peur que ce soit la seule solution en fait... Ou alors tu peux créer tout un programme pour le fils et utiliser des pipes, à toi de voir ;)
30/11/2006, 14h50
vodevil

J'ai trouvé un module qui fait sa vite et bien :D

Citation:

Parallel::ForkManager
20/07/2007, 11h57
djibril

as tu un exemple pour l'utilisation de ce module car ça ne fonctionne pas bien chez moi.

merci

Citation:

Envoyé par vodevil

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
my pid = fork();
if ($pid)
{
   ....
}
  else
{
   my $pi = fork();
   if ($pi)
  {
      ..
  }
...

Mais ce n'est pas très propre
Je cherche donc une méthode plus "propre"

Non, c'est même carrément crade... Généralement on fait ça dans une boucle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my @pids;
 
# crée 10 fils
for (1..10) {
  my $pid = fork();
  unless( defined $pid ) {
    # gestion d'erreur, avec redo souvent
  }
  unless( $pid ) {
    # on est dans le fils
    exit(0);
  }
  push @pids, $pid;
}
waitpid($_, 0) for @pids;

--
Jedaï