Discussion :

[olivier1969]

Bonjour à tous , question qui parait simple , mais est ce que quelqu'un à déjà fait une "jauge" toute bête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
$nb = 100;
@tab = (1..$nb) ;
 
foreach ( @tab ) {
	$val = $_ / $nb *20;
	$ent = int ( $val ) ;
	if ( $ent != $ent_prec ) {
		print "-" ;
		$ent_prec = $ent ;
		sleep 1 ;
	}
}

Parce que ça ne marche pas , ça m'affiche tous les "=" dès le foreach terminé , mais pas pendant ??? Quelle en est la raison ?

Merci

[Gardyen]

Bonjour,
si tu veux juste une barre de progression, tu peux utiliser les modules pré existants tel ProgressBar

sinon le mécanisme que tu recherches est le flush, les données sont gardées en mémoire et ne sont écrites que quand les conditions sont rencontrées (fin de ligne par exemple), ce qui n'est probablement pas le cas dans ton exemple avant la fin du script.

tu peux modifier ce mécanisme avec la variable $| (voir perlvar)

[olivier1969]

Bon
j'ai regardé ça , mais c'est un peu complexe , juste pour faire un print "=" ...

[Lolo78]

Bonjour,

c'est essentiellement pour des raisons de performances. En fonctionnement normal, si l'ordinateur devait faire un appel système pour chaque caractère que tu écris, ce serait extrêmement lent et insupportable. Donc Perl "bufférise" ce que ton programme écrit (en gros, il n'écrit que des lignes entières à l'écran et que des groupes de lignes dans un fichier). Il faut donc forcer l'écriture (sans bufférisation) pour résoudre le problème.

Pour cela, il suffit d'ajouter ceci: $| = 1; à ton code au bon endroit pour que tu obtiennes ce que tu veux:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
$nb = 100;
@tab = (1..$nb) ;
 
foreach ( @tab ) {
	$val = $_ / $nb *20;
	$ent = int ( $val ) ;
	if ( $ent != $ent_prec ) {
		$| = 1;
		print "-" ;
		$ent_prec = $ent ;
		sleep 1 ;
	}
}

(Je viens d'essayer, ça marche comme prévu.)

Rien de bien complexe, en définitive.

Pour plus d'information, voici un excellent article (en anglais) de Mark Jason Dominus sur le sujet: https://perl.plover.com/FAQs/Buffering.html.

[djibril]

Bonsoir,

La méthode la plus simple, efficace, fonctionnelle est l'utilisation du module Term::ProgressBar.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl 
use strict;
use warnings;
use Term::ProgressBar;
 
my $progress = Term::ProgressBar->new(25);
 
for (0..25) {
   $progress->update($_);
   sleep 1;
}

[olivier1969]

Merci pour vos réponses , je vais tester la solution de Lolo78 des demain , ne pouvant installer de modules ....

[olivier1969]

Impec , pile poil ce qu'il me fallait , ça marche !!!

Merci Lolo78

[cmcmc]

Juste une remarque, l'utilisation de STDOUT pour observer l'avancement n'est pas idéale car elle interdit la redirection standard :

Code :

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

1
2
3
4
$ perl -E '++$|; for (1 .. 30) { print "*" unless $_ % 10; $res += $_; sleep 1} say $res' > resultat.txt
$ cat resultat.txt
***465
$

Il vaut mieux utiliser STDERR, qui n'est incidemment pas bufferisé (et donc pour lequel on n'a pas besoin de jouer sur $|) :

Code :

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

1
2
3
4
$ perl -E 'for (1 .. 30) { print STDERR "*" unless $_ % 10; $res += $_; sleep 1} say $res' > resultat.txt
***$ cat resultat.txt
465
$