Foro - Perl en Español

Estimados usuarios.

Me gustaría saber cómo puedo crear una barra de progreso, para ver el estado de avance de una rutina... por ejemplo un ciclo for que dura dos horas...

Sería algo así:

Código: Seleccionar todo

|#####.................................................|30%

O como la barra que utiliza cpan

Código: Seleccionar todo

................................................................................Done

¡¡¡Me sería de mucha utilidad si me pueden ayudar!!!

Yo uso Smart::Comments.

En una sola línea ya tienes hecha la barra de progreso.

Ahora bien... hay que tener cuidado cuando el número de elementos del bucle se consigue de forma indirecta (por ejemplo, los registros de una consulta a una base de datos) en un bucle foreach.

Muy amable Explorer por atender mi consulta!
pruebo Smart::Comments.
Y te comento..

Gracias....

Estimado Explorer: al ejecutar mi script con use Smart::Comments; me aparece en pantalla lo siguiente:

Código: Seleccionar todo

### : ###   $VAR1 = [
### : ###   $VAR1 = [
### : ###   $VAR1 = [
### : ###   $VAR1 = [
### : ###   $VAR1 = [
### : ###   $VAR1 = [
### : ###   $VAR1 = [
### : ###   $VAR1 = [
### : ###   $VAR1 = [
### : ###   $VAR1 = [

¿No entiendo el porqué...? Mi código es el siguiente

Pues que raro...

Acabo de probar tu ejemplo y a mí sí que me funciona... He probado con un hash de 10.000 claves y con un tiempo de espera dentro del bucle de 2 segundos, y sí que me sale la barra de progreso y se va actualizando...

Si la barra de progreso me sale... lo que no entiendo es porque me aparecen ### : ### $VAR1 = al inicio del script... pensé que podía ser algún comentario pero los he borrado todos...

Por la forma, y según el manual, es la manera en que Smart::Comments muestra una expresión, a raíz de encontrar un línea con algo así:

Código: Seleccionar todo

### : <una variable escalar>

Vamos... digo yo... pero si dices que has quitado todos los comentarios, pues entonces no sé a qué será debido...

Sería interesante ver el resultado de la ejecución, paso a paso, con el depurador, para ver realmente qué pasa.

Logré corregir el error, el script que ejecuta el programa contiene


Uno de los archivos contenía varias líneas de esta forma

Código: Seleccionar todo

##########################################

la eliminé y se solucionó, listo...

Ahora...

Sobre la misma, cuando ejecuto el script me aparece:

Código: Seleccionar todo

    (W uninitialized) An undefined value was used as if it were already
    defined.  It was interpreted as a "" or a 0, but maybe it was a mistake.
    To suppress this warning assign a defined value to your variables.

    To help you figure out what was undefined, perl tells you what operation
    you used the undefined value in.  Note, however, that perl optimizes your
    program and the operation displayed in the warning may not necessarily
    appear literally in your program.  For example, "that $foo" is
    usually optimized into "that " . $foo, and the warning will refer to
    the concatenation (.) operator, even though there is no . in your
    program.             

Pero no logro saber cuál es el problema.

Para resolver el tema de los comentarios, valdría con definir en el use cómo son los comentarios que interesan:


Y para lo segundo, el aviso quiere decir que estás usando una variable sin antes haberla inicializado (haberle dado un valor inicial).

El aviso debería decir la línea en la que haces eso.

Esta es una de las consecuencias de usar 'use strict;'. Puede parecer molesto, pero es muy recomendable para evitar errores 'ocultos'.