Foro - Perl en Español

por **BigBear** » 2010-06-14 16:45 @740

Hola tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Tk;
 
my @test = ("sdds","dfdf","dfdf");
 
my $new = MainWindow->new();
$new->resizable(0,0);
$new->title("Test");
$new->geometry("300x350+20+20");
$new->Label(-text=>"Test")->pack();
my $lists = $new->Listbox()->place(-y=>"60",-x=>"80");
$lists->insert('end',@test);
 
MainLoop;
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Mi duda es cómo puedo reconocer qué frase se ha seleccionado en el listbox.

¿Alguien me puede ayudar?

use Tk;
 
my @test = ("sdds","dfdf","dfdf");
 
my $new = MainWindow->new();
$new->resizable(0,0);
$new->title("Test");
$new->geometry("300x350+20+20");
$new->Label(-text=>"Test")->pack();
my $lists = $new->Listbox()->place(-y=>"60",-x=>"80");
$lists->insert('end',@test);
$new->Button(-text=>"Cual",-command=>\&cual)->pack();
MainLoop;
 
sub cual {
    $d = $lists->curselection();
    print "$d\n";
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero el código solo imprime un array (algo hex).

¿Cómo hago para que me muestre el texto seleccionado?

por **explorer** » 2010-07-04 18:04 @794

Siempre hay que acordarse de los buenos amigos, cuando necesitas algo...

Con la ayuda de Data::Dumper, se descubre el interior de ese array:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    use Data::Dumper;
    print Dumper $d;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sale algo como

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = [

          '1'

        ];
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Así que el array guarda un número por cada elemento seleccionado. La forma de sacarlo es algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    for my $id (@$d) {
        print "Indice: $id: ";
        print $lists->get($id);
        print "\n";
    }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Con @$d estamos diciendo que queremos obtener los elementos del array referenciado por $d.

Este comportamiento es el indicado por el manual, en Tk::Listbox. En el apartado de la función curselection(), aparece:

Devuelve una lista conteniendo los índices numéricos de todos los elementos en el listbox que están actualmente seleccionados. Si no hay elementos seleccionados en el listbox entonces se devuelve una cadena vacía.

Aunque... mi amigo Data::Dumper dice que en este último caso, no es una cadena vacía, sino el valor indefinido (undef).

Así que la forma completa sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    if (!$d) {
        print "ninguno seleccionado\n";
    }
    else {
        for my $id (@$d) {
            print "Indice: $id: ";
            print $lists->get($id);
            print "\n";
        }
    }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Duda con Listbox

Duda con Listbox

Publicidad

Re: Duda con Listbox

Re: Duda con Listbox

Re: Duda con Listbox

¿Quién está conectado?