Foro - Perl en Español

Necesito su ayuda. Necesito un programa que muestre un mensaje en pantalla de que su tiempo ha terminado al llegar a dos minutos. Hasta aquí todo bien. El problema es que también debe mostrar un mensaje de interrupción si el usuario no presiona una tecla durante diez segundos.

#!/usr/bin/perl

my $countdown = 2*60;

$| = 1;

my $beg_time = time;
my $end_time = $beg_time + $countdown;

for (;;) {
my $time = time;
last if ($time >= $end_time);

printf("\r%02d:%02d:%02d",
($end_time - $time) / (60*60),
($end_time - $time) / ( 60) % 60,
($end_time - $time) % 60,
);

sleep(1);

}
print "Su tiempo ha terminado ";

Se podría solucionar con select() o alarm(), pero... depende un poco del sistema operativo en que estés. ¿Cuál es?

En perldoc -f getc tienes un ejemplo de cómo leer el teclado sin que el programa se pare.

Con select(), puedes indicar un tiempo de timeout. Si pones 10 segundos, select() esperará por la entrada de texto durante ese tiempo. Pero, como se dice en getc, eso no quiere decir que select() regrese cuando el usuario pulse cualquier tecla, si no solo cuando pulse además la tecla Entrar.

Una vez tuve que hacer algo parecido. Usé el módulo Curses, ya que permite mandar comandos a la terminal, para indicarle que funcione en modo no bloqueante, y de esa manera, puedo llamar a la función getch() (de Curses) para leer una sola pulsación del teclado, sin que el programa se tenga que parar o que el usuario tenga que pulsar la tecla Entrar.

Algo así:



Más información en
perldoc -f select
perldoc -f alarm
perldoc -f getc
perldoc perlipc
perldoc Curses (en caso de estar instalado, claro)

Buenas noches. Mi plataforma es Windows.

Me da error al intentar correr el programa; imaginé que era porque quizá no estaba instalada la librería curses e intenté instalarla desde CPAN, pero da error.

Curses no funciona en Windows de ninguna manera, pero no debes fijarte en este módulo, que solo sirve para interaccionar con la terminal.

En perlfaq8 hay una pregunta sobre este tema, pero dice que Term::ReadKey tiene un soporte limitado en Windows.

Sería algo así:

Pero debes probarlo en Windows para ver si te funciona.

En este hilo hay comentarios del mismo problema, pero usando Win32::Console. Comentan que es mejor usar GetEvents() para saber si hay alguna pulsación esperando para ser leída. Ejemplo (ver función showAbout en el código).