¿De qué forma puedo utilizar Perl para convertir un objeto a un xml?
Convertir obj a xml utilizando Perl
Iniciado por
Fran Smith
, ago 06 2014 04:50
#1 AUTOR PREGUNTA
Preguntas Similares
Esto también te interesa!
#3
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 } } );