crear archivo xml

[jferrero]

Código:

#!/usr/bin/perl
use XML::Simple;
use strict;

my $animales;
my @animales = qw( SAPO LEON PERRO GATO );

foreach my $animal ( @animales ) {
    push @{ $animales->{banner} }, { nombre => $animal, content => '' };
}

print XMLout( $animales, RootName => 'banners', XMLDecl => '<?xml version="1.0" encoding="iso-8859-1"?>' );

__OUTPUT__
<?xml version="1.0" encoding="iso-8859-1"?>
<banners>
  <banner nombre="SAPO"></banner>
  <banner nombre="LEON"></banner>
  <banner nombre="PERRO"></banner>
  <banner nombre="GATO"></banner>
</banners>