• Publicidad

Duda al compilar con perl2exe

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Duda al compilar con perl2exe

Notapor BigBear » 2012-06-04 17:16 @761

Hola, tengo el siguiente código

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!usr/bin/perl
  2.  
  3. menu();
  4.  
  5. sub menu {
  6.  
  7. $SIG{INT} = \&menu;
  8.  
  9. while(1) {
  10. print "opciones 1 2 3\n";
  11. print "option : ";
  12. chomp(my $op = <stdin>);
  13.  
  14. if($op eq 1) {
  15. while(1) {
  16. print "test1\n";
  17. }
  18. }
  19. elsif($op eq 2) {
  20. while(1) {
  21. print "test2\n";
  22. }
  23. }
  24. else {
  25. print "Mal";
  26. }
  27. }
  28. }
Coloreado en 0.003 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 ?
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron