Foro - Perl en Español

Hola, ¿cómo están?, tengo un problemita con la codificación de mi página. El problema es que yo la definí en UTF-8 y veo los acentos y todo bien, pero hay una parte de la página en que yo hago clic a un enlace y la función de ese enlace es mostrarme información relacionada al texto que hice clic, pero cuando me traigo esa información y tiene acentos no me coloca los acentos sino otros caracteres (como en la imagen)



Ahí en la imagen sale después de la flechas lo que recibe del GET.

Lo que yo creo que pasa es que al pasar la información a Perl en UTF-8 no pasa con los acentos y los transforma a los caracteres, lo que quiero saber es cómo hago para recibir esa información y transformarla a latín para que Perl la pueda reconocer (porque creo que esa es la solución).

La imagen no es importante. Lo que es importante es el código HTML generado por el Perl, y ese no le vemos.

De todas maneras, cuando salen codificaciones como %C3%AD, lo que vemos es la codificación de los bytes que forman el carácter tildado, pero en forma de entidades HTML.

El problema está en el código, seguro.

¿No puedes crear un pequeño programa para mostrarnos lo que haces?

Tienes razón, aquí está donde traigo la información y la busco en mi base de datos para mostrarla:



Cuando trae la información y busca algo con acentos en la BD obviamente no lo encuentra porque tiene otros caracteres.

y aquí el otro archivo donde está el GET con el que traigo la información del enlace:

Yo me refería al código HTML ya generado, que ahí también hay pistas.

En cuanto al código, veo cosas horribles... ¿por qué importas el módulo CGI si luego no haces uso de sus facilidades?

Sí que defines bien el binmode() para la salida, pero no lo defines para la entrada. ¿Los cgi no reciben datos desde la entrada estándar en formato utf8?

Luego, haces un pack("c",, que debería ser 'U', ya que suponemos que la entrada está en utf8. Es más, esa expresión regular y ese pack() no te hacen falta, con la ayuda del módulo CGI y param().

Ese cgi lo puse ahí porque estoy probando para pasar con el param() a CGI... y no, los cgi no reciben los datos en formato utf8, ¿me puedes explicar un poco? Que no sé cómo hacerlo, gracias.

Bueno, pues lo primero que hay que hacer es saber en qué codificaciones recibimos los parámetros, que, generalmente, serán en la codificación indicada en la página HTML donde se encuentra el formulario que ha generado la petición CGI.

Por defecto, Perl piensa que todo lo que lee está en latin1 (iso-8859-1). Y lo mismo para la salida. Así que debemos hacer transformaciones de lo que leemos, para pasarlo al formato Unicode interno de Perl, y a la salida, convertirlo de nuevo en la codificación que espera el usuario.

Investigué por ahí y lo intenté así (con el código antes mostrado, modifiqué)



pero el resultado me arroja "1". ¿Qué estoy haciendo mal?

utf8::decode() hace la decodificación 'in-situ', devolviendo verdadero ('1') si la cadena pasada como argumento contiene una secuencia UTF-8 válida. Si no, devuelve falso.

Lo correcto es escribirlo así:

utf8::decode($most);
my $info = buscar->new;
my @data = @{ $info->traerinfo($most) };

Más información en perldoc utf8

explorer, ¿qué módulo podría usar para hacer lo que quiero?

El módulo recomendado para hacer transformaciones de códigos, es el Encode.

En uno de los últimos trabajos que hice, todos los argumentos recibidos eran sin caracteres tildados, así que por esa parte no tenía problemas. Pero sí a la salida, cosa que solucioné poniendo esta línea antes del final:


Aquí, estoy preguntando si la variable $salida_html contiene caracteres unicode (algo que puede suceder si en las operaciones anteriores se incorporaron caracteres o plantillas así codificadas. En ese caso, llamo a utf8::encode para que convierta esos caracteres unicode a codificación utf8, ya que quiero que toda la salida sea en utf8.

Naturalmente, antes, le he dicho a CGI que debe aparecer esa codificación:

Esta línea creará una salida

Content-Type: text/html; charset=UTF-8

en la cabecera HTTP de respuesta hacia el navegador web. Y además, en $salida_html, hay en la cabecera así:

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

No sería necesaria, pero bueno, por si acaso.

En cuanto a tu problema, te pongo la recomendación que da el propio módulo CGI:

-utf8
Hace que CGI.pm trate a todos los parámetros como cadenas UTF-8. Úselo con cuidado, ya que interferirá
con el procesado de las subidas binarias. Es mucho mejor seleccionar manualmente qué campos se espera
que devuelvan cadenas utf-8, y convertirlas usando un código como este:

use Encode;
my $arg = decode utf8=>param('foo');

Después de esa línea, $arg contendrá una cadena con caracteres Unicode, el formato interno que usa Perl, así que ya podrás realizar el resto de operaciones de cadena con ella.