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.
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.004 segundos, usando
GeSHi 1.0.8.4