Foro - Perl en Español

Hola;

¿Hay alguna forma de borrar el último carácter de la consola de salida cuando se está ejecutando el script?

Por ejemplo, si tenemos constantemente un script corriendo, ¿podemos escribir la hora en la consola de salida y cada x minutos que escriba la nueva hora pero borrando la anterior?

Gracias.

Depende de qué consola sea (y sistema operativo), pero por lo general, todo se basa en los caracteres que usas para controlar el cursor.

Por ejemplo, un mini-reloj:

El truco es el siguiente: cuando sale la hora, el cursor queda justo al final del texto, en la misma línea. En la siguiente vuelta del bucle, el primer carácter que sacamos es un "\r", que es el carácter Retorno de carro (en MSDOS/Windows y en UNIX/Linux), que lo que hace es colocar el cursor en la primera columna de la pantalla. Y ahí pintamos la hora, que sobre escribe a la anterior.

Hola:

Había estado intentando algo parecido pero el problema que tengo es que hasta que no pongo un salto de línea (\n) no escribe la salida por lo que no puedo sobreescribir nada con \r ya que no tengo nada en la salida.

Y si pongo

print "\r", scalar localtime; sleep 1; "\n";

Ya estoy en otra línea.

Para que salga en pantalla, de forma inmediata, todo lo que le enviamos con un print(), hay que indicarle, antes, a Perl, que desactive el sistema de caché de salida.

El sistema de caché guarda la información a sacar, hasta que le enviamos un "\n", que es lo que estás viendo que sucede en tu máquina.

Para desactivar el sistema de caché, para la salida estándar, basta con poner a "1" la variable especial $| (fíjate bien en mi mini-programa).

Más información en tu propio ordenador en perldoc perlvar, y en la Web (traducido al español).

Fenómeno, mil gracias.
¡¡¡¡¡Ya me ha salido!!!!!