Foro - Perl en Español

por **rfm** » 2009-04-29 11:48 @533

Hola a todos.
Tengo un problemilla con un XML que tiene la siguiente estructura:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<perfil>
<miniPerfil tipo='a'>
<campo1></campo1>
<campo2></campo2>
</miniPerfil >
<miniPerfil tipo='b'>
<campo3></campo3>
<campo4></campo4>
<campo5></campo5>
</miniPerfil>
</perfil>Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo que quiero hacer es sacar cada "miniPerfil" (a,b.....) a un fichero. Es decir crear "a.xml" con los datos campo1 y campo2 "b.xml" con los datos campo3, campo4 y campo5.

Estoy usando XML::Simple pero al hacer XMLIn('ficheroXML_original') me da el siguiente error...

Código: Seleccionar todo: mismatched tag at line 12, column 2, byte 2314 at /usr/lib/perl5/XML/Parser.pm line 187

Un saludo y muchas gracias.

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

use XML::Simple;

my$xml= XMLin('kk.xml');

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

my@miniPerfiles=@{$xml->{miniPerfil}};

formy$miniPerfil(@miniPerfiles){

print"Tipo: ",$miniPerfil->{tipo},"\n";

print"Valores: \n";
formy$campo(keys%{$miniPerfil}){
nextif$campoeq'tipo';
print"\t",$campo," => [",$miniPerfil->{$campo},"]\n";
}
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

sale:

Código: Seleccionar todo: $VAR1 = { 'miniPerfil' => [ { 'campo1' => ' 1 ', 'tipo' => 'a', 'campo2' => ' 2 ' }, { 'tipo' => 'b', 'campo5' => ' 5 ', 'campo3' => ' 3 ', 'campo4' => ' 4 ' } ] }; Tipo: a Valores: campo1 => [ 1 ] campo2 => [ 2 ] Tipo: b Valores: campo5 => [ 5 ] campo3 => [ 3 ] campo4 => [ 4 ]

en donde vemos el aspecto del $xml leído y una posible forma de acceder a su contenido.

Recuerda: Data::Dumper es tu amigo.

Foro - Perl en Español

Ayuda con XML::Simple

Ayuda con XML::Simple

Publicidad

¿Quién está conectado?