Hola.
Ando teniendo una duda, porque quiero hacer un programa que detecte la cancelación
del script en MSDOS (control + C), pero no sé cómo se hace en Perl.
¿Alguien tiene alguna idea?
-
- Publicidad
Detectar Control + C en Perl
2 mensajes
• Página 1 de 1
Detectar Control + C en Perl
por BigBear » 2010-11-17 09:21 @431
- BigBear
- Perlero frecuente
- Mensajes: 981
- Registrado: 2009-03-01 18:39 @818
Publicidad
Re: Detectar Control + C en Perl
por explorer » 2010-11-17 11:00 @500
Puedes usar la ejecución de una subrutina cuando suceda esa interrupción (no probado):
Con esto, capturas la interrupción del programa. Si solo quisieras saber si están pulsadas, puedes usar el módulo Term::ReadKey.
Using perl Syntax Highlighting
- #!perl
- $SIG{INT} = \&Procesar_Interrupcion; # subrutina a ejecutar en la interrupción
- while ($linea = <>) {
- print "Has escrito: $linea";
- last if $linea eq 'fin';
- }
- sub Procesar_Interrupcion {
- print "Miau Miau!!!\n"; # Hacemos algo
- $SIG{INT} = \&Procesar_Interrupcion; # Reactivamos la interrupción a la misma subrutina
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Con esto, capturas la interrupción del programa. Si solo quisieras saber si están pulsadas, puedes usar el módulo Term::ReadKey.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
2 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 35 invitados