Foro - Perl en Español

por **Mono_Ezpacial** » 2012-09-23 20:36 @900

Saludos, soy nuevo en este foro. Estoy trabajando en un "menú" pero tengo un pequeño problema: mi idea es que cuando escriban "-animals" el programa muestre una lista de animales, pero que solo funcione con "-animals", pero lo que pasa es que escribo cualquier otra cosa y muestra la lista.

Chequen mi código. ¿Cómo puedo corregir este error? Mi idea es que al escribir "-animals" muestre la lista pero si escribe cualquier otra cosa que no sea "-animals" imprima en pantalla "Command not found". Les agradezco si me pueden ayudar...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#Menú de animales
print q(
 __  __ _____ _   _ _   _ 
|  \/  | ____| \ | | | | |
| |\/| |  _| |  \| | | | |
| |  | | |___| |\  | |_| |
|_|  |_|_____|_| \_|\___/                  
);
print "Press ENTER\n";
$var=<STDIN>;
print ">\n";
$usr = <>;
if ($usr = $pc) {
print "
    _          _                 _     
   / \   _ __ (_)_ __ ___   __ _| |___ 
  / _ \ | '_ \| | '_ ` _ \ / _` | / __|
 / ___ \| | | | | | | | | | (_| | \__ \
/_/   \_\_| |_|_|_| |_| |_|\__,_|_|___/
-Ballena azul
-Tigre
-Elefante
-Mono                                       
"
} else {
print "Command not found\n";
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

En la línea 13 estás leyendo desde el teclado. Recuerda que lo que leas desde el teclado será el texto que introduzca el usuario, incluido el/los carácter(es) de fin de línea (por acción de la tecla Entrar). Si esos caracteres no te interesan, es mejor que los quites con un chomp($usr);
En la línea 14 has pretendido hacer una comparación, pero en realidad estás usando el operador de asignación, así que $usr acaba teniendo el valor de $pc. Lo más seguro es que quisieras hacer una comparación de igualdad alfanumérica, así que el operador que debes usar es eq
No sabemos qué valor tiene $pc, en la misma línea. No ha sido declarada ni definida en ninguna parte. Así que, por defecto, su valor es undef

A ver si con estas pistas terminas el programa...

por **Mono_Ezpacial** » 2012-09-24 20:01 @876

¡síííí, gracias! ¡Ya lo pude terminar! Gracias, ¡Saludos!

por **Mono_Ezpacial** » 2012-09-26 21:03 @918

Hola de nuevo, muchas gracias, ya lo pude terminar pero me surgió otra pregunta: ¿cómo puedo hacer que se devuelva al menú anterior si lo que escribió no es válido o simplemente al terminar de dar los datos se pase algo parecido a esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

    _    _   _ ___ __  __    _    _     ____  

   / \  | \ | |_ _|  \/  |  / \  | |   / ___| 

  / _ \ |  \| || || |\/| | / _ \ | |   \___ \ 

 / ___ \| |\  || || |  | |/ ___ \| |___ ___) |

/_/   \_\_| \_|___|_|  |_/_/   \_\_____|____/ 

>asdas

[#]Not found
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

(me vuelve a llevar al inicio del programa...)

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

    _    _   _ ___ __  __    _    _     ____  

   / \  | \ | |_ _|  \/  |  / \  | |   / ___| 

  / _ \ |  \| || || |\/| | / _ \ | |   \___ \ 

 / ___ \| |\  || || |  | |/ ___ \| |___ ___) |

/_/   \_\_| \_|___|_|  |_/_/   \_\_____|____/ 

>Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

No sé si me hago entender, la parte de "Not found" ya lo solucioné pero la parte que me devuelve al inicio del programa no. Una vez abierto y ejecutado el programa finaliza pero automáticamente. Como ven mi idea es que finalice con un "exit" o de lo contrario me regrese al inicio del programa o a la última acción. Gracias de antemano.

PD: no sé si exista algún problema al poner más preguntas en una ya resuelta, espero que no, gracias.

por **explorer** » 2012-09-26 21:58 @957

La solución es meter todas las líneas que deben formar parte del menú y de la respuesta al usuario, dentro de un bucle (do{}while(), do{}until(), while(){}, until(){}), que debe encargarse de repetir una y otra vez las mismas líneas hasta que se cumpla la condición de salida del bucle (el usuario eligió salir del programa).

Más información en tu propio ordenador en perldoc perlsyn, y en la Web (traducido).

Ejemplo

por **Mono_Ezpacial** » 2012-09-29 13:44 @613

wow, gracias de nuevo por responder a mis preguntas pero soy nuevo en Perl. Busqué sobre lo que me dijiste y no encontré cómo hacerlo. ¿Me podrías dar una explicación? Mira cómo va el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
print q(
 
 __  __ _____ _   _ _   _ 
|  \/  | ____| \ | | | | |
| |\/| |  _| |  \| | | | |
| |  | | |___| |\  | |_| |
|_|  |_|_____|_| \_|\___/ 
                          
 
);
print "\n";
print "Menu > ";
$animals = "-animals";
$help = "help";
chomp($usr = <>);
if ($usr eq $animals) {
        system("clear");
print q{
         
        
    _    _   _ ___ __  __    _    _     ____  
   / \  | \ | |_ _|  \/  |  / \  | |   / ___| 
  / _ \ |  \| || || |\/| | / _ \ | |   \___ \ 
 / ___ \| |\  || || |  | |/ ___ \| |___ ___) |
/_/   \_\_| \_|___|_|  |_/_/   \_\_____|____/ 
 
-Mono
-Pato
-Perro
-Gato                                              
 
        } 
} 
if ($usr eq $help) {
system("clear");
   print "
 _   _ _____ _     ____  
| | | | ____| |   |  _ \ 
| |_| |  _| | |   | |_) |
|  _  | |___| |___|  __/ 
|_| |_|_____|_____|_|    
 
-animales       Ver lista de animaes
-exit           Salir del programa(disabled)
";
}
else {
        print " Unknown command =$usr\n";
        }
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Gracias

por **explorer** » 2012-09-29 17:37 @776

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $hay_que_salir = 0;
 
do {
    # presentar el menú
    # leer la respuesta del usuario
    # realizar la acción del usuario
    # si la acción es Salir, se pone $hay que salir = 1
    ...;
} until $hay_que_salir;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Mono_Ezpacial** » 2012-10-04 21:05 @920

Gracias, tu respuesta me fue de mucha ayuda

Foro - Perl en Español

Ayuda con la construción de un menú

Ayuda con la construción de un menú

Publicidad

Re: Ayuda con la construción de un menú

Re: Ayuda con la construción de un menú

Re: Ayuda con la construción de un menú

Re: Ayuda con la construción de un menú

Re: Ayuda con la construción de un menú

Re: Ayuda con la construción de un menú

Re: Ayuda con la construción de un menú

¿Quién está conectado?