Cargando

Convertir obj a xml utilizando Perl




Pulsa corazón para recibir avisos de nuevas Respuestas

  AUTOR PREGUNTA

Publicado 06 agosto 2014 - 04: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 - 17:57
Prueba usando XML::Simple.

 

Publicado 07 agosto 2014 - 17: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 - 18:39
GRacias


X