Discussion :

[Red Bull]

Je voudrais savoir comment faire une "barre de progression" en Perl.
En fait il s'agirait plutot d'un enchainement de caractères , style / - \ | pour simuler une attente.
j'ai trouvé ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub _barre_progression
{
 
	my @spin = ('|','/','-','\\');           #initialise les éléments pour l'attente
	my $i = 0;                               #initialise l'index
 
	while(1)                                 
	{
      	  print $spin[$i];                 #aiffche l'élément de la barre
	        sleep 1;                         #attend un peu
      	  print chr 8;                     #efface le caractère
	        $i = ($i+1) % scalar @spin;      #incrémente l'index
	}
}

Mais le soucis c'est le While(1).
L'ideal serait de pouvoir lancer cette routine avant un long traitement, et pouvoir l'arrêter à la fin. Telle qu'elle est programmée, elle va tourner sans arrêt !!
Je sais qu'il existe une lib appellée twiddle sur CPAN, mais malheureusement je ne peux pas installer de nouvelle lib sur le PC où Perl tourne (pb d'admin et maintenance). Donc tout le code nécessaire sera dans le programme principal.

Merci d'avance

[nyal]

Il te suffit d'inserer ton code. La barre de progression fonctionnera a un moment voulu. Tu ne peux faire deux choses en meme temps dans le meme processus.

Mais tu peux aussi creer un processus fils qui fera la barre de progression. Ensuite tu enverras un signal kill a ce processus une fois ton traitement dans le pere fini.

Tu peux faire des barres de progression en gtk (et autres librairies graphiques). Mais utiliser une aussi grosse pour faire une barre de progression X, ce n'est pas terrible.

S'il n'y a pas d'affichage dans le pere et que tu veux que la barre fonctionne tout le temps. La deuxieme methode est la bonne.

[Red Bull]

Je n'ai pas du être assez précis. .Les manipulations qui sont longues à effectuer sont des requêtes SNMP avec la lib NET::SNMP. Donc les process n'ont pas vraiment lieu dans le programme principal.

Si je fais un while(1), les requêtes vont partir en parallèle, et quand elles vont être achevées, ça va toujours tourner ma petite barre, non ?

En revanche, l'idée d'un process fils est pas mauvaise du tout !! Je vais voir dans cette direction, mais si quelqu'un a d'autres idées à proposer...

[nyal]

Voici un code source pour te montrer.:

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
 
 
$| = 1;
 
sub _barre_progression
{
 
    my @spin = ('|','/','-','\\');
    my $i = 0;
 
    $i = ($i+1) % scalar @spin;
    while(1)
    {
        print $spin[$i];
        sleep 1;
        print chr 8;
        $i = ($i+1) % scalar @spin;
    }
}
 
print "Downloading ";
if (!(my $pid_fils = fork())) {
    &_barre_progression;
} else {
    # mettre les traitements au lieu de while (1)                               
    while (1) {}
    kill 9, $pid_fils;
}

Cordialement

[Red Bull]

ça fait une demi heure que j'essaie de faire marcher cette solution, en vain !!
Le programme se bloque en prenant toutes les ressources !

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
if (!defined(my $pid_fils = fork()))
	{
		die "cannot fork: $!";
	}
	elsif ($pid_fils)
	{ 
		print "DEBUG, on est dans le père\n";
		... requêtes SNMP...
		kill 9, $pid_fils;
	}
	else
	{ 
		print "DEBUG, on est dans le fils\n";
		&_barre_progression(); 
	}

rien ne s'affiche !!

[Red Bull]

J'ai peut être une autre idée : utiliser les signaux !
On arme un signal au bon endroit, on lance la procedire du truc qui tourne, et à la fin de l'exécution des requêtes SNMP on envoie un signal.
Dans la procédure du truc qui tourne, in sort du while(1) dès que le signal est reçu.

C'esr réalisable ça ?? (dédolé pour l'explication très aproximative, mais je vois à peu près l'algo en C, mais en Perl, je n'ai jamais manipulé les signaux )

[nyal]

je ne vois pas le probleme. Cela fonctionne pour moi. (En ne prenant pas 100% du CPU)

Le programme n'affiche rien du tout ?

[Red Bull]

Non, ça n'affiche rien du tout.
ça doit venir de la librairie Net::SNMP qui doit bloquer le système.
j'essaie quelque chose avec un signal SIGALARM...

[nyal]

Voici une autre methode qui est moins bonne je trouve :

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
 
 
$| = 1;
 
# fonction barre de progression
 
sub _barre_progression
{
    my @spin = ('|','/','-','\\');
    my $i = 0;
 
    $i = ($i+1) % scalar @spin;
    while(1)
    {
        print $spin[$i];
        sleep 1;
        print chr 8;
        $i = ($i+1) % scalar @spin;
        if ($quit_func) {
            return ;
        }
    }
}
 
sub kill_progression {
    $quit_func = 1;
}
 
our $quit_func = 0;
$SIG{'USR1'}  = \&_barre_progression;
# $SIG{'USR2'}  = \&kill_progression;                                           
kill 'USR1', $$;
# traitement a la place du while                                                
while (1) {
 
}
$quit_func = 1; # va killer la fonction proression , peut utiliser un signal aussi

Ca fonctionne tres bien.

[Red Bull]

C'est bien vers cette méthode que je voulais m'orienter, mais le problème c'est qu'une fois aue _barre_progression est lancé, le while(1) est bloquant et la suite des opérations ne s'effectue pas !!
ou alors je ne comprends pas le code...

[Red Bull]

J'ai le message d'erreur suivant :

Code :

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

 Unrecognized signal name "USR1" at iec.pl line 285.

L'erreur est toujours là en utilisant SIGUSR1
Il y a des déclarations particumières à faire au début du programme ?

[nyal]

J'ai le message d'erreur suivant :

Code :

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

 Unrecognized signal name "USR1" at iec.pl line 285.

L'erreur est toujours là en utilisant SIGUSR1
Il y a des déclarations particumières à faire au début du programme ?

Tu es sous quel systeme d'exploitation ?

Tu peux tres bien utiliser le signal ALARM :

Code :

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

1
2
3
 
$SIG{ALRM} = \&_barre_progression;
kill 'ALRM', $$;

[Red Bull]

C'est bon, problème résolu avec SIGALRM !!

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
38
39
40
41
42
43
44
45
#Init de la barre de progression
#@spin = ('|','/','-','\\');                                       #plusieurs modèles au choix !
#@spin = ('> ','-> ','-->','---> ','--> ','-> '); 
@spin = ('o---','-o--','--o-','---o','--o-','-o--'); 
$index_barre = 0; 
$SIG{'ALRM'} = \&_barre_progression;
...
#lance la barre de progression
&_lance_barre();
.. #données à traiter...
&_arrete_barre();	
..
 
# -----------------------------------------------------------------
# Routines d'animation de la barre de progression 
# -----------------------------------------------------------------
sub _lance_barre
{
	$quitte_barre = 0;
	$index_barre = 0; 
	alarm(1);
}
 
sub _arrete_barre
{
	$quitte_barre = 1;
}
 
sub _barre_progression 
{ 
  	$index_barre = ($index_barre+1) % scalar @spin; 
	if (!$quitte_barre) 
	{ 	
		print $spin[$index_barre];
		alarm(1); 
		for (my $i=0;$i<length($spin[$index_barre]);$i++)
		{
 			print chr 8; 
		}
	}
    	if ($quitte_barre) 
	{ 
		alarm(0);
	}
}

En tout cas, merci BEAUCOUP nyal pour ton aide et ta disponibilté !!

Si quelqu'un a des idées de design intéressantes pour faire une barre de progression avec des caractères ASCII, n'hésitez pas !!

[Cyspak]

Génial, c'est exactement ce que je cherchais à faire pour faire patienter durant le traitement !!

Merci beaucoup