Foro - Perl en Español

por **danimera** » 2008-07-28 23:00 @000

Esta es la estructura que necesito, y la puedo lograr solo para la primera tag <image> pero no sé cómo hacer para que abra y cierre para todos los demás.

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?>
<gallery frameColor="0xFFFFFF" frameWidth="15" imagePadding="20" displayTime="6" enableRightClickOpen="true">
<image>
<url>upload/8mayo.jpg</url>
<caption>8 de Mayo</caption>
<width>480</width>
<height>320</height>
</image>
<image>
<url>upload/15mayo.jpg</url>
<caption>15 de Mayo</caption>
<width>480</width>
<height>320</height>
</image>
<image>
<url>upload/16mayo.jpg</url>
<caption>16 de Mayo</caption>
<width>480</width>
<height>320</height>
</image>
<image>
<url>upload/19mayo.jpg</url>
<caption>19 de Mayo</caption>
<width>480</width>
<height>320</height>
</image>
<image>
<url>upload/22mayo.jpg</url>
<caption>22 de Mayo</caption>
<width>480</width>
<height>320</height>
</image>
</gallery>Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Tengo que traer dinámicamente la información de cada imagen de una bd.

foreach$foto(@fotos){
($id,$nombre,$tumb,$categoria,$dia_foto,$mes_foto,$anno_foto)=split(/\|\|/,$foto);

#if ($categoria eq $category && $dia_foto == $dia && $anno == $anno_foto ){
if($categoryeq$categoria){
$file={
'aurl'=>["upload/$nombre"],
'caption'=>["$dia_foto / $mes_foto"],
'cbwidth'=>['480'],
'height'=>['320']
};
push@{$xml->{image}},$file;
}

}


$xml->{enableRightClickOpen}='true';
$xml->{frameColor          }='0xFFFFFF';
$xml->{displayTime         }=6;
$xml->{imagePadding        }=20;
$xml->{frameWidth          }=15;

print$xs->XMLout($xml,

    RootName =>'gallery',

    NoEscape =>1,

    KeyAttr  =>{},

    XMLDecl  =>'<?xml version="1.0" encoding="UTF-8"?>',
);Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2008-08-05 12:54 @579

¡Ah!... pero es que ese código no genera la estructura que decías que habías usado... en el mensaje anterior.

Ya me extrañaba a mí la presencia de las claves '1', '2', '3', etc.

Caso resuelto.

por **danimera** » 2008-08-05 20:33 @898

ah, no, para nada, lo que pasa es que cambie ciertas cosas...

Foro - Perl en Español

Otro dilema con XML::Simple

Otro dilema con XML::Simple

Publicidad

¿Quién está conectado?