Foro - Perl en Español

por **elistraus** » 2013-03-08 12:15 @552

Tengo una consulta.

Quiero lograr hacer que mientras estoy esperando la ejecución de un programa Perl, en la línea de comando me muestre algo como el progreso, algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

En ejecucion.........................[====>                                  ] 10%Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

De momento lo estoy haciendo de la manera troglodita

Así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

system('clear');
print "En ejecución           [=>                    ] 0%\n";
        $telnet->waitfor('/> /');
system('clear');
print "En ejecución           [==>                   ] 5%\n";
        $telnet->print($con_tdm{"choice"});
system('clear');
print "En ejecución           [===>                  ] 10%\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Quiero saber si hay algún modulo que pueda hacer eso, ya que el problema es que me genera limpieza en el prompt y si quiero ir arriba me muestra lo limpiado con anterioridad, o sea, así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

En Ejecución.................[=>                ] 0%

En Ejecución.................[========>                 ] 10%Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Es lujo, nada más, pero quiero saber cómo hacerlo, para aprender...

Saludos

system('clear');
 
print "\rEn ejecución           [=>                    ] 0% ";
$telnet->waitfor('/> /');
 
print "\rEn ejecución           [==>                   ] 5% ";
$telnet->print($con_tdm{"choice"});
 
print "\rEn ejecución           [===>                  ] 10% ";
# ...
print "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Hay módulos, en Perl, para presentar barras de progreso, sobre todo en bucles for(), como por ejemplo el fantástico Smart::Comments.

Foro - Perl en Español

Barra de progreso

Barra de progreso

Publicidad

Re: Barra de progreso

¿Quién está conectado?