Foro - Perl en Español

por **joshuasilva** » 2010-12-02 05:21 @264

¡Muy buenas!

Soy nuevo en Perl y tengo una duda, quizá más conceptual que otra cosa. Tengo que hacer un pequeño motor de menús en Perl que imprima por pantalla una serie de opciones y ejecuta las acciones asociadas. Toda esta información la sacará de un archivo de texto del siguiente estilo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

|Opcion 1||Comando 1

|Opcion 2||Comando 2

|Opcion 3||Comando 3

|Opcion 4||Comando 4

|Salir||exitColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Para desarrollar este programa necesito 2 partes:
- Una primera que se encargue de imprimir las dos primeras columnas (número de opción y descripción de la opción).
- Una segunda que, habiendo el usuario elegido un número, acceda a la acción correspondiente y la lance.

Mi idea es hacer una array de array, pero no sé si es la opción más adecuada en este caso, y tampoco sé muy bien por dónde empezar a desarrollarla.

¡Muchas gracias por vuestro tiempo!

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

Se puede resolver de muchas maneras.

Por ejemplo, podrías leer el texto en un array. Y luego, cuando el usuario pulse una opción, la buscas de entre los elementos del array por medio de una expresión regular.

O quizás más sencillo aún. Veo que todas las opciones son números naturales. Pues te vale meter cada opción en un elemento de un array, indexado por el número de opción. Por ejemplo, Salir se metería en el índice 0. Así, cuando el usuario pulse una opción, no tienes que buscarla, pues ya sabes en qué índice se encontrará.

Luego, solo tienes que leer el elemento y extraer el comando. Con un split(), por ejemplo.

por **joshuasilva** » 2010-12-02 07:46 @365

¡Wow, realmente rápida la respuesta! Muchas gracias

Voy a ir tocando y cuando tenga hecha la base del motor os digo cómo lo he hecho. De momento para imprimir el menú he hecho lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub imprimeMenu {
        while (<MENU>) {
                push(@menu,$_);
                chomp;
                print "\t [";
                print ((split /\|\|/, $_) [0]);
                print "] : ";
                print ((split /\|\|/, $_) [1]);
                print "\n";
        }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Con lo que me queda lo que buscaba:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

     [1] : Opcion 1

     [2] : Opcion 2

     [3] : Opcion 3

     [4] : Opcion 4

     [0] : Salir
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Mañana me pongo con la ejecución de comandos, ¡¡¡gracias otra vez!!!

por **joshuasilva** » 2010-12-03 06:23 @307

Ya he encontrado la solución, lo he hecho así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub abreFichero {
        my $fichero_menus = $_[0];
        open MENU, "$fichero_menus" or die
        "Error del sistema de menús. No se pudo abrir el archivo $fichero_menus. Inicie sesión de nuevo para que
        el sistema se auto-repare. Si es la segunda vez que ve este error contacte con el administrador.\n";
}
 
sub cierraFichero {
        close(MENU);
}
 
sub imprimeMenu {
        while (<MENU>) {
                push(@menu,$_);
                chomp;
                print "\t [";
                print ((split /\|\|/, $_) [0]);
                print "] : ";
                print ((split /\|\|/, $_) [1]);
                print "\n";
        }
}
 
sub introduceOpcion {
        print "\nIntrodueixi una opció: ";
        my $opcion = <STDIN>;
        return $opcion;
}
 
sub ejecutaOpcion {
        my $opcion = $_[0];
        while (<MENU>) {
                push(@menu,$_);
                chomp;
                if ($opcion == ((split /\|\|/, $_) [0])) {
                        system((split /\|\|/, $_) [2]);
                }
        }
        print "\n";
}
 
my $fichero_menus = shift;
abreFichero($fichero_menus);
imprimeMenu;
cierraFichero();
my $opcion = introduceOpcion();
abreFichero($fichero_menus);
ejecutaOpcion($opcion);
cierraFichero();
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¡¡Gracias!!

por **explorer** » 2010-12-03 08:26 @393

Fantástico.

Ahora que sabes hacer esto, ya puedes usar Term::Menus

Foro - Perl en Español

Motor de menús desde fichero de texto

Motor de menús desde fichero de texto

Publicidad

Re: Motor de menús desde fichero de texto

Re: Motor de menús desde fichero de texto

Re: Motor de menús desde fichero de texto

Re: Motor de menús desde fichero de texto

¿Quién está conectado?