Foro - Perl en Español

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?

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().

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.

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

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.