Foro - Perl en Español

por **danimera** » 2009-07-24 20:04 @878

¿Alguien me podría decir cual es la diferencia de estos dos XML? Cuando uso el .xml me funciona bien la galería de imágenes, pero cuando uso el .pl no me funciona nada.

Éste es generado por Perl, y es el mismo contenido ya que copié y pegué lo que éste me genera a un archivo .xml:
http://www.bitacora.biz/lib/galeria-xml ... fotos2.txt

Este es el XML:
http://www.bitacora.biz/riocauca/db/gallery.xml

Les juro que no he podido ver por qué con el XML solo sí me carga la galería y con el .pl no se me carga desde el flash

La única diferencia que hay entre los dos ficheros es que el xml no tiene caracteres de avance de línea (0x0a) al final de las líneas. Y que la extensión es .xml.

De hecho, si al .txt le ponemos una extensión .xml, los dos ficheros se despliegan correctamente en el Mozilla Firefox.

Nada, nada... quita los finales de línea.

Y si eso falla, es que el Flash está esperando más información aparte de la del fichero. Por ejemplo, alguna cabecera MIME.

por **danimera** » 2009-07-25 08:45 @406

Bueno, es que el xml lo genero con el módulo XML::Simple y los datos lo obtengo de un fichero .txt; no sabría cómo borrarle los finales de línea.

Además te juro que eso me estaba funcionando antes, de hacer un cambio que ni recuerdo qué fue. Y esto ya me tiene tiempo y nada que logro hacer que ese álbum en Flash me cargue los datos cuando genero el xml desde mi código Perl.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

foreach $foto(@fotos) {
    ($id,$nombre,$tumb,$categoria,$dia_foto,$mes_foto,$anno_foto) = split(/\|\|/, $foto);
  #   print ">>>>>>>>>>>>>>>>>> $categoria ::: $dia_foto - $mes_foto - $anno_foto <br>";
 # print $nombre;
    #if ($categoria eq $category && $dia_foto == $dia && $anno == $anno_foto ){
    if ($category eq $categoria){
   #   print "----------------------- $dia_foto - $mes_foto - $anno_foto <br>";
         $file = {
                      #
                      'aurl' => ["upload/".$nombre],
                      #'aurl' => ["http://www.bitacora.biz/riocauca/upload/tumb_agosto9punto2.jpg"],
                      'caption' => ["$dia_foto - $mes_foto - $anno_foto"],
                      'cbwidth' => ['800'],
                      'height' => ['600']
                    };
       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.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-07-25 09:42 @446

Cambia la línea 32 por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    NoIndent  => 1,
);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **danimera** » 2009-07-26 09:06 @421

Imposible. Nada, que no lo logro. Cuando pongo directamente el archivo XML funciona y si pongo el .pl nada que me carga esas fotos.

Esta es la galería y ya hice lo que me sugirió explorer

Veré qué sigo intentando pero ya llevo mucho tiempo con esto y no puede ser.

por **explorer** » 2009-07-27 18:50 @826

Pues no se me ocurre otra cosa que se transmita información adicional, como alguna cabecera MIME, por ejemplo.

Foro - Perl en Español

Problema con XML generado desde Perl

Problema con XML generado desde Perl

Publicidad

Re: Problema con XML generado desde Perl

Re: Problema con XML generado desde Perl

Re: Problema con XML generado desde Perl

Re: Problema con XML generado desde Perl

Re: Problema con XML generado desde Perl

¿Quién está conectado?