Foro - Perl en Español

por **Leo_Gutierrez** » 2011-01-28 19:46 @865

Hola a todos.

Estoy tratando de hacer un menú de archivos sobre la consola, esto es para elegir un archivo y que luego lo muestre en pantalla. Estoy intentando usar el módulo Term::Menu (Si saben alguno mejor, por favor, díganmelo).

Quiero que salgan los archivos de esta manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

-> abecedario_en_matriz.pl

-> abrir_archivo_para_actualizar.pl

-> agregar_al_vector_si_se_cumple_la_condicion.pl

-> agregar_lista_de_elementos_a_arreglo.pl

-> agregar_prefijo_a_cadena.pl

-> agregar_tokens_a_cadena.plColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Yo agregaría a un hash %files los archivos hallados en el directorio X.

Pero Term::Menu tiene la siguiente estructura y no hallo cómo indicarle que tome mi hash para su uso:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Term::Menu;
  my $menu = new Term::Menu;
  my $answer = $menu->menu(
        Foo    => ["Bar", 'a'],
  );
  if(defined($answer)) {
        print "Answer was $answer\n";
  } else {
        print "Answer was undefined\n";
  }
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿Podrían brindarme un poco de ayuda?

El hash le construyes como indica el módulo que debes hacerlo (una clave -el valor que recibes- y el valor es una referencia a un array que contiene la entrada que aparece en el menú, seguido de uno o más letras que es lo que el usuario puede pulsar.

Construyes el hash, y se lo pasas.

my $answer = $menu->menu( %hash );

por **Leo_Gutierrez** » 2011-01-28 21:38 @943

Hola, explorer, gracias por la respuesta.

Suponiendo que tengo mi hash así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %hash = (
        1 => 'hola.txt',
        2 => 'adios.pl',
        3 => 'algo.c',
        4 => 'otroasd.xml'
        );
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y se lo paso al método menu():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %hash = (
        1 => 'hola.txt',
        2 => 'adios.pl',
        3 => 'algo.c',
        4 => 'otroasd.xml'
        );
 
      use Term::Menu;
        my $menu = new Term::Menu;
        
        my $answer = $menu->menu( %hash );
        
        if(defined($answer)) {
              print "Answer was $answer\n";
        } else {
              print "Answer was undefined\n";
        }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Obtengo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Can't use string ("otroasd.xml") as an ARRAY ref while "strict refs" in use at /usr/share/perl5/site_perl/Term/Menu.pm line 57.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

EDITO:

Usando este formato sí que se puede:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %hash = (
        1 => ["file.txt", 1],
        2 => ["lalala.xml", 2],
        3 => ["otro asd.text", 3],
        4 => ["abc.cpp", 4]
        );
 
      use Term::Menu;
        my $menu = new Term::Menu(
        
        nooptiontext => "",
        toomanytries => ""
        
        );
        
        my $answer = $menu->menu(%hash );
        
        if(defined($answer)) {
              print "Answer was $answer\n";
        } else {
              print "Answer was undefined\n";
        }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema va a ser a la hora de agregar a la estructura elementos. explorer, ¿cómo podría agregarle al hash un valor siguiendo el patrón n => ["ALGO", n]?

Otra cosa, obtengo la salida como quiero, pero por defecto el módulo me está ordenando los archivos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

[leo@archero Desktop]$ perl pl.pl 
Please choose one of the following options.
      4) abc.cpp
      1) file.txt
      3) otro asd.text
      2) lalala.xml
Please enter a letter or number corresponding to the option you want to choose: 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Gracias por la ayuda.

EDITO:

Podría hacer algo como:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$hash{$contador} = [$fichero, $contador]
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿?

por **explorer** » 2011-01-28 22:05 @962

Efectivamente, con

$hash{$contador} = [$fichero, $contador];

podrías ir agregando entradas del menú, porque es justo la estructura que se pide: un array anónimo que contiene al menos dos elementos: la entrada que aparece en pantalla y la opción a elegir del menú. Y eso se asocia a la clave del menú, que, en este caso, la has puesto a lo mismo que el usuario debe pulsar.

En cuanto al orden, no veo nada en el manual del módulo que indique el orden de salida de las entradas. Y como las entradas dentro de un hash no siguen el orden en que fueron escritas, por esa salen, aparentemente, desordenadas.

En eso caso, lo que podríamos hacer es que el hash que vamos a usar, configurarle para que sí devuelva las claves y valores en el mismo orden en que se crearon.

Para ello, se puede usar un módulo como Tie::IxHash. Al principio del programa escribes

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Tie::IxHash;
my %hash;
tie %hash, Tie::IxHash;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y a partir de ese momento, el hash devolverá las claves y valores de forma ordenada. También funcionarán las funciones keys() y values().

por **Leo_Gutierrez** » 2011-01-28 22:13 @967

Gracias, explorer.

Voy a tener que instalar el módulo.

Una pregunta, ¿es normal que haya tenido que instalar el módulo Find?, ¿que no viene incluido ya en Perl?

Estoy hablando de la versión 5.12.2.

Ya funciona todo bien:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#use strict;
use warnings;
use 5.010;
 
my %archivos;
my $contador = 0;
 
use Tie::IxHash;
tie (%archivos, Tie::IxHash);
 
 
opendir(my $dir, ".") or die("Error abriendo directorio. $!");
for(readdir($dir))
{
        #-f && say;
        $archivos{$contador} = [$_, $contador++] if -f;
}
 
use Term::Menu;
my $menu = new Term::Menu(
        nooptiontext => "",
        toomanytries => ""
                );
 
my $answer = $menu->menu(%archivos);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

[leo@archero Desktop]$ perl pl.pl 
Please choose one of the following options.
      0) un.pl
      1) code.c
      2) pl.pl
      3) code.cpp
      4) code
      5) _comandos.txt
      6) shell.sh
Please enter a letter or number corresponding to the option you want to choose: ^C
[leo@archero Desktop]$ 
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Gracias, si tengo otro problema les comento.

por **Leo_Gutierrez** » 2011-01-28 22:47 @991

Hola, explorer.

Tengo un último problema.

Después de agregar correctamente al hash, necesito saber como desreferenciar para obtener el valor, es decir:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

say "Elegiste el archivo : $archivos{$answer}";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Soy algo neófito en esto.

Saludos.

EDITO:

Ya lo he resuelto.

Al usar esto

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

say "Elegiste el archivo : $archivos{$answer}";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Me tiraba:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Elegiste el archivo : ARRAY(0x89bd6b0)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Por lo que al recordar que es un array anónimo solo hice

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

say "Elegiste el archivo : $archivos{$answer}[0]";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y listo.

Gracias.

EDITO:

Mi script por si a alguien le interesa es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;
use 5.010;
 
my %archivos;
my $contador = 0;
my $dir;
 
use Tie::IxHash;
use Term::Pager;
tie (%archivos, Tie::IxHash);
my $answer; #= $menu->menu(%archivos);
 
do
{
        %archivos = ();
        $contador = 0;
        opendir($dir, ".") or die("Error abriendo directorio. $!");
        for(readdir($dir))
        {
                $archivos{$contador} = [$_, $contador++] if -f; # && m/.*pl$/;
        }
 
        use Term::Menu;
        my $menu = new Term::Menu(
        beforetext => "Elija su archivo : ",
        aftertext => " : ",
        nooptiontext => "",
        toomanytries => ""
                );
 
        $answer = $menu->menu(%archivos);
} while(!defined($answer));
 
close($dir);
 
my $text = do { local $/; open FILE, $archivos{$answer}[0]; <FILE> };
my $t = Term::Pager->new(rows => 100, cols => 100, speed => 10);
$t->add_text( $text );
$t->more();
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Saludos.

Foro - Perl en Español

Duda sobre Term::Menu y hash

Duda sobre Term::Menu y hash

Publicidad

Re: Duda sobre Term::Menu y hash

Re: Duda sobre Term::Menu y hash

Re: Duda sobre Term::Menu y hash

Re: Duda sobre Term::Menu y hash

Re: Duda sobre Term::Menu y hash

¿Quién está conectado?