Convertir obj a xml utilizando Perl
Iniciado por
Fran Smith
, ago 06 2014 03:50
AUTOR PREGUNTA #1
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
PREGUNTAS SIMILARES
#2
Publicado 07 agosto 2014 - 16:57
Prueba usando XML::Simple.
#3
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 } } );
