Perl sous Windows

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:

---

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++; }

---

Bonjour,
Une suggestion simple à partir de ton code :

Code:

---

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++; }

---

Bonjour.

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