Foro - Perl en Español

por **scout** » 2009-11-22 07:44 @364

Gente: dentro de los varios menús que tengo en un script de consola asigné un número para salir del programa... ¿Con qué sentencia saldría del programa? Probé con exit(); pero no funciona si estoy en el primer menú aunque desde el segundo menú sí funciona.

Me la estoy liando, creo... estoy probando las cosas por separado y me funcionan...

Y sí sale porque termina el programa, supongo... necesito un reset...

Bueno,

vamos al código...

Si tengo esto... ¿cómo saldría del menú... y del programa presionando 13?

Aclaro que esto de hacerlo en consola es un lío... pero resistiré a ello.. jajaja.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$prompt= Term::Menu->new(

    beforetext      =>'Por favor, elija una de las siguientes opciones: ',

    aftertext       =>'Introduzca la sede porfavor  ',

    nooptiontext    =>'No seleccionaste ninguna opcion ',

    toomanytries    =>'Inicia el programa nuevamente y Pulse alguna tecla porfavor ',
);

my$answer=$prompt->menu(

        informes =>["informes",'1'],

        Ayuda    =>["Ayuda sobre el  Programa",'12'],

        Salir    =>["Salir del Programa",'13'],
);

#fin de menú inicialColoreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-11-22 11:26 @518

Pues creo que es tan sencillo como hacer un exit() cuando la respuesta sea igual a 13... ¿no?

por **scout** » 2009-11-22 12:18 @554

¿Sí?

por **scout** » 2009-11-22 12:29 @562

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $prompt = Term::Menu->new(
    beforetext      => 'Por favor, elija una de las siguientes opciones: ',
    aftertext       => 'Introduzca la sede porfavor  ',
    nooptiontext    => 'No seleccionaste ninguna opcion ',
    toomanytries    => 'Inicia el programa nuevamente y Pulse alguna tecla porfavor ',
);
 
my $answer = $prompt->menu(        
        informes =>   ["informes", '1'],
        Ayuda    =>   ["Ayuda sobre el  Programa", '12'],
        Salir    =>   ["Salir del Programa", '13'],
);
 
#fin de menú inicial
 
if ( $answer eq 'Salir del Programa' )
{ 
print "¡Estamos fuera de rango!\n";
exit();
 
}
 
else
{
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Segundo menú...

Acá es donde no hace caso y sigue...

por **explorer** » 2009-11-22 12:39 @569

El manual dice:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

As you see, you give a hash to ->menu, where the key is the string you will get back, and the value is an arrayref, where the first value is the label, and all other values are the possible keys.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

que quiere decir

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Como puedes ver, le pasas un hash a ->menu, donde la clave es la cadena que recibirás, y el valor es una referencia a un arreglo, donde el primer valor es la etiqueta y el resto de valores las posibles claves de entrada.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Entonces...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ( $answer eq 'Salir' )
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **scout** » 2009-11-22 13:05 @587

Increíble... funcionó con esa corrección.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# opción salida
if($listadoeq'Salir'){
print"¡Estamos fuera de rango!\n";
exit();
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Perl 9 scout 0... ckuac

Explorer siempre de 10... Gracias

por **explorer** » 2009-11-22 13:24 @600

Y eso que ya te lo dije...

por **scout** » 2009-11-22 15:21 @681

Sí, es verdad... poco a poco voy aprendiendo este mundo... que pinta tan bien...
gracias por recordármelo...

Foro - Perl en Español

Cerrar o salir de script desde cualquier punto del programa

Cerrar o salir de script desde cualquier punto del programa

Publicidad

Re: Cerrar o salir de script desde cualquier punto del programa

Re: Cerrar o salir de script desde cualquier punto del programa

Re: Cerrar o salir de script desde cualquier punto del programa

Re: Cerrar o salir de script desde cualquier punto del programa

Re: Cerrar o salir de script desde cualquier punto del programa

Re: Cerrar o salir de script desde cualquier punto del programa

Re: Cerrar o salir de script desde cualquier punto del programa

Re: Cerrar o salir de script desde cualquier punto del programa

Re: Cerrar o salir de script desde cualquier punto del programa

¿Quién está conectado?