Foro - Perl en Español

por **fjmn2001** » 2012-04-23 15:58 @707

Saludos, comunidad de Perl en Espanol.

Les escribo en este caso solicitando ayuda para la realización de una aplicación web.

Se me ha presentado un problema con respecto a la codificación de la página web. Quiero que ésta use UTF-8 debido a que todos mis datos los manejaré bajo esa codificación. He agregado la etiqueta meta en el html para tal fin, he modificado Apache2 para que defina utf-8 por defecto pero no consigo que la página web se codifique en utf-8.

Anexo el código para su mejor entendimiento. De ante mano, muchas gracias.

Contenedor - esta es mi plantilla de ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<html>
<head>
<title>Tierra Activa - Principal</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
[%nombre%]
</body>
</html>
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

applicacion.pm

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use CGI::Application::Plugin::TT;
 
sub setup {
        my $self = shift;
        
        $self->tt_config(TEMPLATE_OPTIONS => {INCLUDE_PATH => '/var/www/tierra_activa/template',POST_CHOMP   => 1});
}
 
# FUNCIÓN PARA PROCESAR LAS PLANTILLAS
sub processtmpl {
        my ($self,$tmplname,$params) = @_;
        my $query = $self->query();
        return $self->tt_process($tmplname, \%$params);
}
sub index {
        my $self = shift;
        my $vars;
        my $file = "contenedor";
        
# $$vars{"nombre"} puede venir de la base de datos pero para este ejemplo lo coloque así.
#Lo que quiero expresar con esto es que la codificación tanto de entrada como de salida debe ser utf-8. 
 
        $$vars{"nombre"} = "Francisco José";
        
        
        return $self->processtmpl($file,$vars);
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

No importa lo que le digas a Apache2 sobre la codificación por defecto: según el valor del meta de la página, así saldrá la cabecera HTTP con el charset adecuado.

Puedes probar a hacer un telnet servidor 80 para comprobar qué cabecera te está devolviendo.

Y otro tema distinto es el propio contenido de la página.

Una cosa es lo que indiquemos en la cabecera, pero luego, en nuestro programa, nosotros somos responsables de que los datos emitidos también estén en esa codificación.

Del código mostrado no vemos ninguna pista que nos diga en qué están codificados los datos.

Si pones $$vars{"nombre"} = "Francisco José"; de forma literal en el programa, ¿pusiste un pragma 'use utf8;' al principio para indicar que estabas escribiendo literales en utf8 dentro del propio programa?

Si los datos salen de una base de datos, ¿en qué codificación salen? Perl, por defecto, piensa que todo está en iso-8859-1.

Siempre, siempre, siempre, hay que saber en qué codificación leemos y en qué vamos a escribir.

Podemos realizar las transformaciones con el módulo Encode o con capas E/S en los open().

Vemos que usas el entorno de programación CGI::Application. Cuando lo usaba, tenía que hacer esto:
* en el cgiapp_init() definía el charset:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub cgiapp_init() {  
    my $self = shift;
    
    $query = $self->query;                      # creamos un objeto CGI
    $query->charset('UTF-8');                   # salida siempre en utf8
    ...
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

* Y justo antes de terminar, convertía todo a utf8:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub cgiapp_postrun {
    my ($self, $output_ref) = @_;
#    my @parametros = $self->param;
#    $$output_ref .= $query->pre($self->dump . join("\n", map { "$_ => " . $self->param($_) } @parametros) . "\n" . $self->query->param);
#    $$output_ref .= $query->pre(Dumper($xls));
#    $$output_ref .= $query->pre($query->user_agent());
 
    utf8::encode( $$output_ref ) if utf8::is_utf8($$output_ref); # encode for UTF-8
 
    $session->flush if $self->session_loaded;                   # ¿cuál de los dos es necesario? ¿Este o el de teardown?
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Las funciones utf8::encode() y utf8::is_utf8() son internas de Perl. En esa línea nos preguntamos si $$output_ref (la página definitiva) está en utf8. Realmente quiere decir si está codificado en Unicode. Si ese es el caso, convertimos la secuencia Unicode en secuencia de bytes ya en utf8. Y eso es lo que sale hacia afuera.

Más información en http://cgi-app.org/index.cgi?BestPractices en el enlace sobre utf8.

P.D. Sí, es algo complicado.

por **fjmn2001** » 2012-04-23 21:42 @945

¡¡¡Muchas gracias!!! Modificando el código de la siguiente manera lo he logrado.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub cgiapp_init {
        my $self = shift;
        my $query = $self->query;
        $query->charset("UTF-8");
        $self->dbh_config("DBI:Pg:host=localhost;dbname=aaa", 'bbb', 'ccc', {pg_enable_utf8 => 1});
}
 
sub cgiapp_postrun {
        my ($self, $output_ref) = @_;
 
        utf8::encode( $$output_ref ) if utf8::is_utf8($$output_ref); 
        $self->session->flush if $self->session_loaded;              
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

CGI::Application::Plugin::TT y UTF-8

CGI::Application::Plugin::TT y UTF-8

Publicidad

Re: CGI::Application::Plugin::TT y UTF-8

Re: CGI::Application::Plugin::TT y UTF-8

¿Quién está conectado?