Menu en perl
Publicado por Manolo (2 intervenciones) el 18/08/2002 12:06:14
Alguien me podria proporcionar ayuda para construir un menu en perl, muchas gracias
Valora esta pregunta
0
#!/usr/bin/perl
use strict;
use warnings;
sub mostrar_menu {
print "Menú:\n";
print "1. Opción 1\n";
print "2. Opción 2\n";
print "3. Opción 3\n";
print "0. Salir\n";
}
sub obtener_opcion {
print "Elige una opción: ";
my $opcion = <STDIN>;
chomp $opcion;
return $opcion;
}
sub opcion_invalida {
my $opcion = shift;
return $opcion < 0 || $opcion > 3;
}
sub main {
while (1) {
mostrar_menu();
my $opcion = obtener_opcion();
if (opcion_invalida($opcion)) {
print "Opción inválida. Por favor, elige una opción válida.\n";
next;
}
if ($opcion == 0) {
print "Saliendo del programa. ¡Hasta luego!\n";
last;
}
print "Has elegido la opción $opcion.\n";
# Aquí puedes realizar acciones según la opción elegida
}
}
main();