Doy por cerrada mi consulta y paso a limpio este arte que creo que ayudará a quien quiera hacer algo tan
retro como un menú por consola...
Gracias a la ayuda de Explorer pude realizar este menú...
Vale aclarar que lo bueno de ello es capturar la selección en una variable y luego poder con ella trabajar sin problemas...
En mi caso generé la primera función &sqlaltas($answer); y le paso la famosa selección del usuario; en vuestro caso podréis mejorar este tema... y depurarlo.
Using perl Syntax Highlighting
use strict;
use warnings;
use diagnostics;
use Term::Menu;
my $var = 0;
my $sede = 0;
my $prompt = Term::Menu->new(
beforetext => 'Por favor, elija una de las siguientes opciones:',
aftertext => 'Introduzca la sede por favor ',
nooptiontext => 'No seleccionaste ninguna opción ',
toomanytries => 'Inicia el programa nuevamente y pulse alguna tecla por favor ',
);
my $answer = $prompt->menu(
resguardo => ["resguardo", 1 ],
sqlaltas => ["sqlaltas", 2 ],
sqlcronograma => ["sqlcronogramas", 3 ],
Ayuda => ["Ayuda sobre el Programa", 4 ],
Salir => ["Salir del Programa", 5 ],
);
print "\n";
print "$answer \n";
if ($answer eq 'resguardo') {
print "Has elegido sede resguardo ";
#&sqlresguardo ( $answer);
}
elsif ($answer eq 'sqlaltas') {
print "Has elegido sede sqlaltas ";
#&sqlaltas ( $answer);
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
