Foro - Perl en Español

por **morago** » 2014-04-13 02:36 @150

Tengo un problema con XML::Simple. Tengo un fichero XML de este tipo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<videos id_playList="v1a">
  <video id="1a" description="d1a">
    <title>"t1a"</title>
  </video>
  <video id="2a" description="d2a">
    <title>"t2a"</title>
  </video>
</videos>
 
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

En este caso hay dos elementos. Lo que ocurre es que si solo hay un elemento, XML::Simple lo trata de modo diferente y no me crea el mismo hash. Tendría que modificar el archivo xml para que lo trate igual:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use warnings;
use strict;
use feature qw(switch say);
use Data::Dumper;
use XML::Simple;
 
 
my $xml1 = '
<videos id_playList="v1a">
  <video id="1a" description="d1a">
    <title>"t1a"</title>
  </video>
  <video id="2a" description="d2a">
    <title>"t2a"</title>
  </video>
</videos>';
 
my $xml2 = '
<videos id_playList="v1b">
  <video id="1b" description="d1b">
    <title>"t1b"</title>
  </video>
</videos>';
 
my $xml3 = '
<videos id_playList="v1c">
  <video>
    <t1c id="1c" description="d1c">
    </t1c>
  </video>
</videos>';
 
 
my $xml_caps = XML::Simple->new();
my $res1 = $xml_caps->XMLin("$xml1", KeyAttr => { 'video' => 'title' });
 
my $xml_caps2 = XML::Simple->new();
my $res2 = $xml_caps2->XMLin("$xml2", KeyAttr => {'video' => 'title'} );
 
my $xml_caps3 = XML::Simple->new();
my $res3 = $xml_caps2->XMLin("$xml3");
 
print Dumper $res1;
print "\n";
print Dumper $res2;
print "\n";
print Dumper $res3;
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

¿Alguna solución? Gracias.

La solución más inmediata es... no usar XML::Simple. A veces, complica el desarrollo de forma innecesaria. Hay otros 200 módulos en CPAN que pueden hacerlo mejor.

La otra solución, es leer, releer, y volver a leer la página de manual de este módulo para ver si encontramos alguna respuesta, y empezar a hacer docenas de pruebas hasta encontrar la solución (a mi siempre me pasa).

En tu caso, lo solucionas agregando la opción ForceArray => ['video'], a la lista de opciones de XMLin().

por **morago** » 2014-04-13 14:25 @642

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

ForceArray => ['video'], KeyAttr => [ 'title' ]
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Porque si no usa 'id' por defecto, y no 'title'.

Por cierto, lo de leer, releer y probar lo has clavado

Como siempre, gracias por la ayuda, explorer.

Foro - Perl en Español

XML::Simple y el diferente tratamiento con más de un nodo

XML::Simple y el diferente tratamiento con más de un nodo

Publicidad

Re: XML::Simple y el diferente tratamiento con más de un nod

Re: XML::Simple y el diferente tratamiento con más de un nod

¿Quién está conectado?