Foro - Perl en Español

por **60N2410** » 2012-03-27 12:30 @562

¡Hola nuevamente!

Mi consulta:

Tengo una SimpleList cargada con datos los cuales quiero obtenerlos e imprimirlos en pantalla.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $lista=Gtk2::SimpleList->new( Lista => 'text' );
# Le agrego datos...
my @resultado; #arreglo con datos
foreach  my $entrada (@resultado) {
    push @{$lista->{data}}, $entrada;
}
 
# Luego en otra subrutina quiero obtener los datos e imprimirlos pero no he podido, siempre me imprime una dirección, he tratado de utilizar @{$lista->{data}} pero no logro desreferenciar nada
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Desde ya, muchas gracias.

sub vista_texto{
        my $lista = shift;
        my $data=$lista->{data};
        my @arr=@{$data};
        foreach my $tex (@arr){
                print "$tex\n";
        }
 
# o también
 
        my $textbuffer= Gtk2::TextBuffer->new(undef);
        my $text_view = Gtk2::TextView->new;
        foreach my $texto (@arr){
                $textbuffer->insert_at_cursor($texto);
        }
# y luego mostrar el texto en pantalla...
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora sí el código es más prolijo.

Pero no logro imprimir los datos, me imprime cosas raras.
Perdón la molestia.

por **explorer** » 2012-03-27 17:04 @753

Pero... ¿qué cosas rara te imprime? Queremos verlas...

Otra idea... cuando trabajamos con estructuras complejas, una buena idea es la pedir ayuda a Data::Dumper:

use Data::Dumper;
print Dumper($data);

Si $data contiene una referencia a un array, lo podrás ver desplegado en pantalla. Si no, verás su verdadero contenido.

por **60N2410** » 2012-03-28 08:04 @378

La salida imprimiendo con el foreach() es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

ARRAY(0x996b610)ARRAY(0x8fc3908)
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y la salida con Dumper:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = [

          [

            'nombre1'

          ],

          [

            'nombre2'

          ],

          [

            'nombre3'

          ],

          [

            'nombre4'

          ],

          [

            'nombre5'

          ],

          [

            'nombre6'

          ]

        ];
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Yo solo quiero imprimir en pantalla:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

nombre1

nombre2

nombre3

nombre4

nombre5

nombre6
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¡Gracias!

por **explorer** » 2012-03-28 11:06 @504

El Data::Dumper ya nos da una pista: se trata de una referencia a un array que, en cada uno de sus elementos, es una referencia a otro array, que a su vez cada uno contiene un solo elemento: una cadena de texto.

Entonces, tenemos que, si $data es la primera referencia, con @{ $data } la desreferenciamos, y obtenemos los elementos del array. Ahora solo queda desreferenciar el array de cada elemento:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $item ( @{ $data } ) {   # $data es un ref. a un array. Recorremos todos los elementos.
 
    print $item->[0], "\n";     # $item es una ref. a un array. La desreferenciamos con '->', accedemos al array,
                                # y sacamos su primer elemento ([0]). Es la forma corta de ${$item}[0]
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Más información en perldoc perlref (traducido).

por **60N2410** » 2012-03-28 12:07 @546

¡Muchísimas gracias!

Ahora entendí bien cómo usar el Dumper, para estos casos.

¡Saludos!

por **explorer** » 2012-03-28 15:31 @688

El Data::Dumper::Simple es incluso mejor, pero no viene de base con Perl, así que hay que instalarlo a mayores.

Foro - Perl en Español

Obtener datos desde una SimpleList

Obtener datos desde una SimpleList

Publicidad

Re: Obtener datos desde una SimpleList

Re: Obtener datos desde una SimpleList

Re: Obtener datos desde una SimpleList

Re: Obtener datos desde una SimpleList

Re: Obtener datos desde una SimpleList

Re: Obtener datos desde una SimpleList

Re: Obtener datos desde una SimpleList

¿Quién está conectado?