Using perl Syntax Highlighting
- #!usr/bin/perl
- menu();
- sub menu {
- $SIG{INT} = \&menu;
- while(1) {
- print "opciones 1 2 3\n";
- print "option : ";
- chomp(my $op = <stdin>);
- if($op eq 1) {
- while(1) {
- print "test1\n";
- }
- }
- elsif($op eq 2) {
- while(1) {
- print "test2\n";
- }
- }
- else {
- print "Mal";
- }
- }
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Cuando lo cargo normal va bien pero cuando lo compilo con perl2exe tiene un problema el cual no sé por qué. El problema radica en que cuando se hace control+c como opción cuando el programa pide un número, el programa termina tildándose feo mostrando repetidamente un print() que dice "opciones 1 2 3" cuando lo hago eso mismo con el script compilado a exe con perl2exe.
Viendo el código , ¿alguien me podría decir si hay algo mal en el código para que pase eso ?
