Foro - Perl en Español

Hola estimados. Quisiera que me pudieran ayudar con lo siguiente. Resulta que desde un webservice recibo el siguiente hash:

$VAR1 = {
'DATO1' => 'VALOR1',
'DATO2' => 'VALOR2',
'DATO3' => 'VALOR3',
'DATO4' => 'VALOR5',
'DATO5' => [
{
'SUBDATO1' => '11111111',
'SUBDATO2' => '22222222',
'SUBDATO3' => '33333333',
'SUBDATO4' => '44444444',
'SUBDATO5' => '55555555'
},
{
'SUBDATO1' => '333333',
'SUBDATO2' => '222222',
'SUBDATO3' => '3223231',
'SUBDATO4' => '56432145',
'SUBDATO5' => '787678765'
}
]
};


Si bien tengo un script que lee hasta el DATO4, favor su ayuda para leer los SUBDATO.... que corresponden al DATO5, ya que recibo ARRAY(0x1df4658)... Este es parte del script

while (my ($k,$v)=each $result)
{
print "$k $v\n"
}

DATO1 VALOR1
DATO2 VALOR2
DATO3 VALOR3
DATO4 VALOR4
DATO5 ARRAY(0x1df4658)

Por su ayuda, muchas gracias.

Bueno, una forma de hacerlo es... recursiva:

explorer: entendido, muchas gracias.

explorer, si bien puedo recuperar los datos, ¿cómo los puedo recuperar en una misma línea separados por "," ?

Desde ya, mucha gracias.

Pues cambiando la forma del print()... en lugar de pedirle que lo haga por líneas, le dices que lo pinte tal cual, seguido de una coma.

Otra forma sería almacenar la salida en una variable escalar para, al final, quitar la última coma sobrante por medio de un chop(), y finalmente, sacarla con un solo print().

Otra forma es ir almacenando los valores en un array, con un push(), y al final sacarlo todo con un print join(',', @array), "\n";

Gracias, explorer.