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