Discussion :

[mikygee]

Bonjour,

J'aimerais un peu d'aide sur les threads. Mon script se connecte sur des routeurs et lance des actions. La liste de routeurs est dans un fichier.

liste_routeurs.txt

Code :

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

1
2
3
4
routeur1
routeur2
routeur3
...

mon_script.pl

Code :

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

1
2
3
4
5
6
open (FILE, "liste_routeurs.txt") or die "blabla";
while (<FILE>)
{
    $routeur = $_;    faire_les_choses_sur_routeur($routeur);
}
close FILE;

Ca c'est ce qui marche, et ca fonctionne sequenciellement (et ca prend du temps)

En utilisant plusieurs threads je pourrais reduire le temps d'execution du script de maniere drastique, par contre je ne vois pas du tout comment faire.

Par exemple avec 3 threads:
routeur1 ----> le thread1 s'en charge
routeur2 ----> le thread2 s'en charge
routeur3 ----> le thread3 s'en charge
...

Chaque thread doit lire dans liste_routeurs.txt la ligne suivante qu'un autre thread a lu.

Une maniere peu elegante a mon gout serait d'utiliser Xmod3 avec X le numero de la ligne pour que :
- le thread1 s'occupe des routeurs 1,4,7,10,...
- le thread2 s'occupe des routeurs 2,5,8,11,...
- le thread3 s'occupe des routeurs 3,6,9,12,...

Donc je voudrais savoir comment puis-je faire pour que chaque thread lance la fonction faire_les_choses_sur_routeur($routeur) puis passe au routeur qui suit dans la liste mais qui n'a pas encore été géré par un autre thread.
Ce que je veux dire est dur a expliquer mais simple a comprendre, si je n'ai pas ete assez precis dites le moi.

Merci

[Woufeil]

Salut !

Personnelement, je n'ai jamais utilisé de threads étant sous windows. Par contre, ave de simples processus, ton cas est facile à traiter :

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
sub faire_les_choses_sur_routeur
{
    my $pid = fork;
    if ($pid <  0)
    {
        die ("Erreur de fork : $!");
    }
    elseif ($pid == 0)
    {
        #le fils fait quelque chose avec $_[0]
        exit 0;
    } 
    else
    {
       #Le père retourne au programme principal
        return 0;
    }
}

Peut être peux-tu t'insiper de ce code pour t'aider...

[mikygee]

Oui ca m'a l'air d'etre une autre piste.

J'ai 1000 routeurs dans mon fichier alors il va falloir que je trouve un moyen pour ne pas créer 1000 processus fils.
Peut etre mettre un sleep 2 avant que le pere ne retourne au programme principal.

En sequenciel, mon script met 80 minutes pour executer les opérations sur les 1000 routeurs, ce qui fait a peu pres 4 à 5 secondes par routeur en moyenne.

[pospos]

tu fais koi sur tes routeurs?
Tu a regardé si tu pouvais faire ce que tu veux avec POE?

[scaleo]

Salut !

Personnelement, je n'ai jamais utilisé de threads étant sous windows. Par contre, ave de simples processus, ton cas est facile à traiter :

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
sub faire_les_choses_sur_routeur
{
    my $pid = fork;
    if ($pid <  0)
    {
        die ("Erreur de fork : $!");
    }
    elseif ($pid == 0)
    {
        #le fils fait quelque chose avec $_[0]
        exit 0;
    } 
    else
    {
       #Le père retourne au programme principal
        return 0;
    }
}

Peut être peux-tu t'insiper de ce code pour t'aider...

La gestion des threads est meilleur sous unix ou linux ????

[mikygee]

Sur mes routeurs/switches je fais un show run ou show conf. Ainsi, je recupere la sortie standard de la commande et la mets dans un fichier.
L'operation prend entre 2 et 40 secondes suivant la puissance de l'equipement.

POE je ne connais pas...c'est quoi ?

Je ne sais pas si les threads sont meilleurs sous linux ou unix. Personellement je code ce script sous un HPUX, et d'ailleurs je deteste cet OS. Mais je veux tirer l'avantage de perl en portabilité, donc aujourd'hui c'est HPUX demain ca sera peut etre Linux.

Je vais commencer a reflechir comment je peux intergrer le fork dans mon script mais je vois deja un petit probleme. Pour qu'il s'execute proprement il faut que le processus pere attende son fils. En fais il doit attendre ses fils car plusieurs fils doivent travailler.

Si j'integre ton code, je vais avoir en gros un fork pour chaque routeur car le pere va retourner dans le while(<FILE>) qui parse ma liste d'equipements. Comment coder proprement pour que j'ai tout le temps a un instant t 3 fils qui travaillent ? Et pour qu'a la fin le pere attende ses trois fils ?

[mikygee]

J'ai creusé un peu le sujet, en utilisant ce que tu m'avais suggeré

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
#!/usr/bin/perl
 
my $max_proc = 3;
 
open (FILE, "liste_routeurs.txt") or die "Impossible d'ouvrir le fichier liste_routeurs.txt";
while (<FILE>)
{
  my $routeur = $_;
  chomp($routeur);
  fork_it($routeur);
}
close FILE;
 
sub fork_it
{
  my ($routeur) = @_;
  my $pid = fork;
 
  if ($pid < 0)  {  die ("Erreur de fork : $!\n"); }
  elsif ($pid == 0)
  { do_it($routeur); $max_proc++; exit 0; }
  else
  {
    $max_proc--;
    if($max_proc < 1) { wait(); }
  }
}
 
# Cette fonction fais les choses sur le routeur
sub do_it
{
  my ($routeur) = @_;
  print "$routeur\n";
  # Le sleep(2) me sert a simuler tout un tas d'autres taches que je fais sur le routeur
  sleep(2);
}

A present le script executer les taches 3 par 3, car $max_proc = 3.
Le wait() du pere attend les deux processus fils.

Cependant je dois ameliorer c'est que:
- Il faudrait que le wait() puisse se debloquer des qu'un processus fils se termine (et non pas tous).
- Que le pere attende que tous ses fils aient fini avant de finir.

Est-ce que vous avez des suggestions

[Woufeil]

Si tu es sous Linux (et je suis presque sûr que tu y es ) renseigne toi sur la fonction waitpid(), elle devrait beaucoup t'intéresser. Elle permet d'attendre la fin d'un processus en particulier. Donc il te suffit d'attendre la fin du premier processus que tu as lancé.

Evidemment, cela pose un petit souci de programmation (il faut tester la bonne valeur de $pid), mais tu devrais trouver une solution. Au pire, demande nous