crear archivo xml

[eduardo1983]

Hola amigo del foro:
Tengo una duda, es la siguiente, a partir de unos datos que obtengo de mi bd quiero crear un archivo xml por ejemplo tengo esto
una lista de animales
SAPO
LEON
PERRO
GATO
quiero crear un xml de la siguiente manera:

<?xml version="1.0" encoding="iso-8859-1"?>
<banners>
<banner nombre="SAPOi"></banner>
<banner nombre="LEON"></banner>
<banner nombre="PERRO"></banner>
<banner nombre="GATO"></banner>
</banners>
Gracias por su ayuda.

[eduardo1983]

esta es la solucion

my $archivo='oscar.xml';
my $contenido="<?xml version='1.0' encoding='iso-8859-1'?>
<banners>
<banner nombre='psi'></banner>
<banner nombre='psiworkflow'></banner>
</banners>";

open(DAT,">/home/$archivo") || die("No puedo crear el archivo");
print DAT "$contenido";
close(DAT);

[monoswim]

Gracias por colocar la respuesta

Saludos

[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>