Discussion :

[dede92]

Bonjour,

Je suis néophyte en Perl et j'aimerai ponctuellement afficher une valeur en pourcentage qui évolue.
Je voudrais afficher cette valeur sans saut de ligne bien sur et que la nouvelle valeur écrase la précédente à l'ecran.
J'ai tenté ça pour un test mais les caractères s'affichent les uns derrière les autres …
J'ai également essayé "\b" sans succès !
comment faire ?
Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
#! c:\Perl\bin\perl.exe -w
#
use Win32::Console;
print "Content-type: text/html\n\n";
$i=0;
$OUT = Win32::Console->new(STD_OUTPUT_HANDLE);
while ($i<100) {
	print $i;
 
  $OUT->Cls;
  $i++;
}

[dmganges]

Bonjour,
Une suggestion simple à partir de ton 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
#! c:\Perl\bin\perl.exe -w
#
use Win32::Console;
use Time::HiRes qw (sleep);										# Pour utilser sleep en millisecondes
print "Content-type: text/html\n\n";
$i=0;
$OUT = Win32::Console->new(STD_OUTPUT_HANDLE);
while ($i<100) {
  $OUT->Cls;
	print "$i\n";
	sleep(.5);
#	sleep(.001); # Trop vite ?
  $i++;
}

[Puppet_Master]

Bonjour.

il y a un module pour produire facilement les progresse barre : Smart::Comments#Progress-Bars