Cargando

Ir a contenido

X

Convertir obj a xml utilizando Perl





  AUTOR PREGUNTA

Publicado 06 agosto 2014 - 03:50
¿De qué forma puedo utilizar Perl para convertir un objeto a un xml?
  • ¿Tienes la misma pregunta? Yo también
  • Volver arriba


 

Publicado 07 agosto 2014 - 16:57
Prueba usando XML::Simple.

 

Publicado 07 agosto 2014 - 16:58
Te dejo un ejemplo utilizando XML::Simple:

my $SQL = qq| select * from items |;
my $sth = main::DatabaseQuery($SQL);
my $items = [];
while(my $item = $sth->fetchrow_hashref()) {
push @$items, $item; }
use XML::Simple;
my $xs = XML::Simple->new(ForceArray => 1, KeepRoot => 1, NoAttr => 1);
my $xml = $xs->XMLout( { items => { item => $items } } );


   AUTOR PREGUNTA

Publicado 07 agosto 2014 - 17:39
GRacias


X