Foro - Perl en Español

Hola, buenas. Tengo este código para que me pinte en pantalla los apartados del XML pero al ejecutarlo me da el siguiente error:
Not an ARRAY reference at ordenado_texto.pl line 15.

Porque si en el código pongo esto para otro archivo .xml, sí me funciona:

El error dice que $data->{Cabecera} no contiene una referencia a un array, por lo que el forzamiento @{} no funciona.

Cuando tienes estructuras de datos complejas, acuérdate de usar Data::Dumper (o mejor, alguno de sus derivados, como Data::Dumper::Simple) para ver qué es lo que contiene.

Sí, lo entiendo, pero ¿por qué en el primer código me da error y en el segundo no?

Pues porque $data->{employee} sí contiene una referencia a un array...

Usa Data::Dumper... y lo ves.

Te dejo el código entero, el use::Data ya lo tenía puesto. Por eso te digo que no sé por qué no me funciona con cabecera.

Prueba esto y así verás el aspecto de la estructura de datos:

Con eso me muestra todo el archivo XML

pero en:


Le estoy diciendo que me muestre los elementos de la variable $data, pero solo la cabecera.

porque si pongo:


solo me pinta la cabecera

Claro. Y viendo todo el XML, ¿qué contiene $data->{Cabecera}?

Lo que intentamos averiguar es qué contiene $data->{Cabecera}, porque según tu código, debe contener una referencia a un array, pero según el error, no.

Mucho cuidado con XML::Simple... en algunas ocasiones te creará arrays, pero en otras, no.

Eso es lo que contiene $data -> cabecera.

¿Y cómo hago para que me cree un array?

Bueno, pues ya vemos qué contiene $data->{Cabecera} (cuidado con las mayúsculas, son significativas).

Queda claro que no contiene una referencia a un array, sino los datos que necesitamos, directamente.

Lo ocurre es lo siguiente: cuando XML::Simple está leyendo el xml, se da cuenta que solo existe una <Cabecera> ... </Cabecera>, así que, en lugar de crear un array de un solo elemento, no lo hace, y mete los valores de Cabecera directamente dentro de un hash anónimo.

Si hubiera ocurrido más de un elemento dentro de <Cabecera>, sí que hubiera creado un array.

Esto es lo malo de usar XML::Simple. La solución pasa por decirle a XML::Simple que siempre cree array, aunque él crea que no son necesarios. Es una de las opciones que se le pasan a XMLin().

Ahora viene la pregunta... ¿en todas las circunstancias, el xml a procesar siempre va a ser así (un solo dato de cabecera)? ¿O puede ocurrir que aparezca más de uno?

Si es el primer caso, nos olvidamos de toda preocupación, porque entonces no necesitas ningún bucle for(). Simplemente accedes a los datos así:

print $data->{Cabecera}->{OperadorId}, "\n";

Si es el segundo caso, pues podemos poner un

y ya está.