Foro - Perl en Español

Tengo el siguiente código:



palabras.txt:



¿Cómo podría pausar y después reanudar el programa (pulsando una tecla o una combinación de teclas) en el mismo punto donde hice la pausa?

Si estás en un sistema UNIX/Linux, te basta con pulsar Control+S y Control+Q para parar/continuar la salida en la terminal donde estás ejecutando el programa.

Por regla general, esto es también la misión de la tecla Pausa/Interrupción del teclado.

Yo suelo usar el comando less (more, en MSDOS) para ver la salida de procesos que generan muchas líneas. También suelo usar el comando tail con la opción -f o -F.

Pero otra opción sería hacerlo de forma programada, claro...

Para ello, dentro del bucle, hay que mirar si se ha pulsado alguna tecla, ver qué tecla es, si es la tecla de pausa, hacer una pausa (por ejemplo, un simple input con el operador <> podría valer; o haciendo otro bucle donde esperamos otra pulsación), y seguir.

Hummm... es más cómodo usar less

¿De verdad que necesitas programar esa pausa dentro del propio programa? Si tienes un ordenador rápido, puede que salga toda la salida incluso antes de que la mano llegue a tocar la tecla de pausa.

Alternativamente podrías dividir la orden print() para que se desarrolle en varios pasos:


etc... No he comprobado si funciona, es sólo una idea pero parece sencilla de implementar, sólo tienes que dividir tus datos totales en bloques de n líneas, donde n es la capacidad máxima de líneas que puedes ver en pantalla de cada vez. Es como usar less, pero automático.

Si estás en un sistema UNIX/Linux, te basta con pulsar Control+S y Control+Q para parar/continuar la salida en la terminal donde estás ejecutando el programa.

Por regla general, esto es también la misión de la tecla Pausa/Interrupción del teclado.

Muchas gracias por las respuestas.

Mi sistema operativo es XP.

Control+S y Control+Q y la tecla Pausa/Interrupción del teclado hacen funcionar el programa como quiero. No conocía esas teclas, solucionado el problema.

¿De verdad que necesitas programar esa pausa dentro del propio programa? Si tienes un ordenador rápido, puede que salga toda la salida incluso antes de que la mano llegue a tocar la tecla de pausa.

Sí, por eso puse el sleep(), para que me diera tiempo a interactuar con el programa.

Otra cosa:

Para salir del programa antes de su finalización, utilizo Control+C. Al volver a ejecutar el programa, como es lógico, vuelve a empezar por el primer elemento del array. ¿Podría memorizar de alguna forma el último elemento donde se quedó el programa, después de ejecutar Control+C?

Es decir:

Ejecuto prueba.pl

Control+C salgo del programa

Ejecuto prueba.pl

colorado escribiste:¿Podría memorizar de alguna forma el último elemento donde se quedó el programa, después de ejecutar Control+C?

Bueno, guardando el número de línea leída en un archivo en disco, por ejemplo.

Gracias por la pista, explorer.

Así me quedó:



funciona bien

bueno, pero es un poco ineficiente... estar teniendo que abrir y cerrar el archivo, en cada vuelta.

Es casi mejor,

* abrir el archivo al principio, antes del bucle

* usar seek() para posicionar el puntero de escritura al principio del archivo

* ya puedes escribir

* también antes del bucle, capturar la señal de paro (con el control-C), para que una subrutina haga un close limpio del archivo. Algo así:


* en vez de usar FILE, es mejor usar my $FILE, para que así pueda ser usado en otras partes del programa, como el caso de la subrutina anterior.