Foro - Perl en Español

¡Hola nuevamente!

Mi consulta:

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

Desde ya, muchas gracias.

Pero si en la línea 3 declaras la variable @resultado, estará vacía.
Cuando llegues a la línea 4, ni siquiera entrará en el bucle, porque @resultado estará vacía.
Ningún valor se almacenará en $lista->{data}.

Prueba:

¡aajjj! Perdón, es un pseudo código.

El arreglo tiene datos, la lista también (la muestro en pantalla).

Quiero obtener los datos de la lista en otra subrutina, o sea, tengo una lista con datos y se los quiero sacar de a uno e imprimirlos o ponerlos en un textbuffer.

Por ejemplo:


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

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

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.

La salida imprimiendo con el foreach() es:

Y la salida con Dumper:

Yo solo quiero imprimir en pantalla:

¡Gracias!

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:




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

¡Muchísimas gracias!

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

¡Saludos!

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