Foro - Perl en Español

Gente: estoy unificando unos procedimientos que tengo en unos bat y me gusta por consola (bien retro); la lógica funciona bien, está todo probado por separado.

Deje el menú para el final; me gustaría saber cómo podría armarlo en Perl teniendo que seleccionar entre 10 posibilidades, o sea, del 1 al 10; me quedo trabado en el control para el caso de que pulsen cualquier otra opción o espere cierto tiempo sin pulsar.

Agradeceré una mano.

Scout

Bienvenido a los foros de Perl en Español, scout.

Una forma cómoda de hacerlo es por medio del uso de algún módulo que realice esa tarea.

Term::Menu hace eso: muestra un menú y se encarga de obtener información del usuario.

Lo que también puedes hacer es mostrar parte de tu código para que veamos por dónde quieres ir.

Cada opción del menú ejecutará un sqlcmd o ejecutará system para X mantenimientos de un servidor, por ello que quería ponerlo en un menú como para darle orden a esas tareas y buscaba un ejemplo.

Buscaré por vuestras indicaciones y cuando tengo algo lo cuelgo...

Muchas gracias... veré cómo va ese menú.

Perfecto, va quedando... lo único es que aparece el texto inicial como...

"Please choose one of the following options."

¿Hay alguna forma de sacarlo o personalizarlo...? Vi lo de aftertext pero no me funciona...

Creo que es beforetext (definir el texto que sale antes de las opciones).

Sí, eso lo vi, pero donde se define.. vi que por ejemplo el spaces lo definen así, pero no sé cómo hacerlo cuando hay que agregar una cadena de caracteres...

spaces => 5,

Perdón en esto del Perl, soy nuevito...

Dentro del new(), como otra opción más:

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

Lo probé de esta manera pero sale un error...



Salida por consola:

No, te he dicho que hay que ponerlo en el new():

¡Síííí...! Bien, muchas gracias; bueno, estuve jugando con las demás opciones del menú y responde bien... ahora estoy viendo de utilizar la selección con fines de asignar variables para comenzar con los procesos y vamos bien salvo el problema surge cuando

1.- si seleccionamos 1 la variable $variablesql se pone en 643
2.- si seleccionamos 2 la variable $variablesql se pone en 643 nuevamente...

Lo mismo pasa si pongo un print() en cada if()... se mantiene el del estado anterior.