Discussion :

[vodevil]

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 (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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[Woufeil]

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

[vodevil]

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

Parallel::ForkManager

[djibril]

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

merci

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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ï