Foro - Perl en Español

por **AkonD** » 2007-11-26 02:41 @153

Holas de nuevo, jeje.

Me ha pasado una cosa muy rara con los charsets y el módulo cgi applications creo que es un bug pero no estoy seguro.

En mi app.pm tengo esta función que cambia el charset al principio de ejecutarse el cgi..

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub cgiapp_init {
my$self=shift;

$self->header_props(-expires =>'now',-charset =>'utf-8');
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

No sé por qué carajo cuando ejecuto una función de app.pm que suelta esto:

Sintáxis: [ Descargar ] [ Ocultar ]

$return .= <<EOT;
<div style="float:left; margin-right: 15px;">
<center><a href="$variedad->{'alternate'}" target="_blank">$variedad->{'title'}</a> </center>
<img src="$variedad->{'g:image_link'}" WIDTH=150 HEIGHT=150>
</div>
<div style="padding-top: 10px;">
Genética: $variedad->{'g:genética'}
Tipo: $variedad->{'g:tipo'}
Banco: $variedad->{'g:banco'}
Precio unidad: $variedad->{'g:precio_unidad'}
Clima óptimo: $variedad->{'g:clima_óptimo'}
Periodo Floración: $variedad->{'g:periodo_floración'}
Tamaño: $variedad->{'g:tamaño'}
Producción: $variedad->{'g:producción'}
Mes Cosecha: $variedad->{'g:mes_cosecha'}
</div>
EOT

Me cambia el charset a ISO. Me parece rarísimo y no le veo la lógica

$return.=<<EOT;

<div style="float:left; margin-right: 15px;">

<center><a href="$variedad->{'alternate'}" target="_blank">$variedad->{'title'}</a><br></center>

<img src="$variedad->{'g:image_link'}" WIDTH=150 HEIGHT=150>

</div>

<div style="padding-top: 10px;">

<strong>Mes Cosecha:</strong> $variedad->{'g:mes_cosecha'} <br>

</div>

EOT
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Me muestra la página en utf-8.
cosas de la vida

Algo pasa con las referencias que tienen tilde.

Foro - Perl en Español

Charsets y cgi application

Charsets y cgi application

Publicidad

¿Quién está conectado?