Foro - Perl en Español

por **thegame** » 2012-01-10 17:48 @783

Gracias por la sugerencia, pero aún no me salen las palabras con tilde. Te muestro el código (¡ojo! Ya coloqué el "use Encode;" más arriba en el archivo)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

.
.
.
$query = new CGI;
$query->charset('UTF-8');
 
print "Content-type: text/html\n\n";
my $most = $ENV{'QUERY_STRING'};
 
 
foreach ($mos) {
    $most=~s/\+/ /g;
    $most=~s/%([0-9i][0-9])/pack('U',hex($1))/ge;
                }
 
my $deco = decode utf8=>$most;
my $info =buscar->new;
my @data = @{ $info->traerinfo($deco) };
 
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Aquí me estoy trayendo de un GET que hice el texto y en $most queda la palabra, pero no me transforma la codificación. Gracias por la ayuda que me puedan dar.

Ya encontré el fallo.

El problema es que estás leyendo el argumento pasado al cgi, que está codificado de forma url-encoded. Y la estás leyendo de forma directa con

my $most = $ENV{'QUERY_STRING'};

Es en esa cadena donde aparecen los caracteres así:

Ministerio+del+Poder+Popular+para+la+Ciencia+y+Tecnolog%C3%ADa

Es decir, no es que vengan codificados en utf-8, es que vienen codificados URL-encoded.

Entonces, la solución es clara: no hacer eso, sino usar el param() del módulo CGI, que hace la transformación de URL-encoded a caracteres de forma automática. Y luego haces el decode() desde utf-8, para tener una verdadera cadena Unicode.

Ahora bien... eso es lo que estás haciendo en las líneas 12 a 15 del primer código que publicaste. Quizás los caracteres estén doblemente URL-encoded...

¿No puedes crear dos programas, completos, lo más pequeños posible (sin consultas a la base de datos, sin cargar plantillas HTML, solo generando el código HTML mínimo, etc) que repita el error y nos lo mandas?

A lo mejor así vemos qué pasa.

por **explorer** » 2012-01-10 23:06 @004

Añadido...

En el perlfaq 9, viene resuelta esa cuestión: How do I decode or create those %-encodings on the web? , usando el módulo URI::Escape.

por **thegame** » 2012-01-11 14:02 @626

¡¡Lo arreglé!!

¡Era lo que tu decías!. La verdad, muchas gracias. Mira cómo quedó el código al final:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print $query->header('text/html');
print $query->start_html();
my $var= $query->param(traer=>$ENV{'QUERY_STRING'});
my $temp=uri_unescape( $var );    
my $deco = decode utf8=>$temp;
my $info = buscar->new;
my @data = @{ $info->traerinfo($deco) };
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Te agradezco por toda la ayuda que me has dado porque este problemita me tenía la vida a cuadros.

por **explorer** » 2012-01-11 19:05 @837

Suponiendo que el parámetro del formulario que recibe la cadena se llama 'traer', ¿has probado con esto?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print $query->header('text/html');
print $query->start_html();
my $var  = $query->param('traer');
my $deco = decode('utf8',$var);
my $info = buscar->new;
my @data = @{ $info->traerinfo($deco) };
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Problema con codificación UTF-8 en CGI

Re: Problema con codificación UTF-8 en CGI

Publicidad

Re: Problema con codificación UTF-8 en CGI

Re: Problema con codificación UTF-8 en CGI

Re: Problema con codificación UTF-8 en CGI

Re: Problema con codificación UTF-8 en CGI

¿Quién está conectado?