Foro - Perl en Español

Hola, tengo un problema con un buscador que estoy haciendo.

El problema es que cuando se le pasa una palabra con tilde no funciona; sin embargo con palabras normales sí trabaja bien. Necesito ayuda urgente. Aquí les dejo el código:

Deberías poner el error que te genera, o a qué te refieres cuando dices que no funciona...

Cuando se entra una palabra normal, o sea, una palabra sin ñ o sin tildes, busca normalmente en la base de datos las palabras que se entraron por parámetros; pero cuando se entra una ñ por ejemplo uña, no busca en la base de datos y al hacerle un print() para ver qué se está entrando me muestra esto uña, y me imagino que al comparar uña con uña no lo encuentre y por eso no busque nada. Realmente no sé cómo arreglarlo.

Ya lo solucioné con utf8::decode($valor);
Gracias de todas formas...

Bienvenido a los foros de Perl en Español, jorgel.

Se trata de un problema de codificación. Por defecto, Perl siempre trabaja con iso-8859-1 tanto en la entrada como en la salida. Si no es esa la codificación, pues entonces habrá problemas con los caracteres especiales.

Yo, por ejemplo, trabajo con sistemas que usan utf8, tanto en la entrada como en la salida. Como en el entorno donde estoy tengo definida la variable del sistema $LANG = es_ES.UTF-8, me basta con poner en los programas Perl una línea como la siguiente:

use open 'locale';

Y Perl busca en el entorno qué codificación debe usar tanto para la entrada como para la salida. De esa manera, puedo leer ficheros y entradas en utf8, y las salidas, irán con esa misma codificación.

Más información en perldoc perluniintro.

Yo también tenía problemas con la codificación, y mi solución fue la misma que ocupó "jorgel". Pero esto es una especie de solución parche que utilicé alguna vez.

explorer escribiste:Yo, por ejemplo, trabajo con sistemas que usan utf8, tanto en la entrada como en la salida. Como en el entorno donde estoy tengo definida la variable del sistema $LANG = es_ES.UTF-8, me basta con poner en los programas Perl una línea como la siguiente:

use open 'locale';

Y Perl busca en el entorno qué codificación debe usar tanto para la entrada como para la salida. De esa manera, puedo leer ficheros y entradas en utf8, y las salidas, irán con esa misma codificación.

Más información en perldoc perluniintro.

¿A qué te refieres que usas sistemas con utf8 en la entrada y salida...?
Me leí la documentación, pero poco logré entender :s...

¿Es posible que te pongas un ejemplo? ¿Para aceptar acentos, ñ y caracteres como Ç sin necesidad de poner decode()?

panterozo escribiste:¿A qué te refieres que usas sistemas con utf8 en la entrada y salida...?
Me leí la documentación, pero poco logré entender :s...

¿Es posible que te pongas un ejemplo? ¿Para aceptar acentos, ñ y caracteres como Ç sin necesidad de poner decode()?

Quiero decir que yo uso sistemas informáticos con codificación utf8.

Así, como Perl piensa que, por defecto, todo está en iso-8859-1, debo indicarle que no, que lo que va a leer por la entrada estándar está en utf8. Y que deseo, además, que la salida también sea así.

Hay varias formas de indicar esto.

La primera, usando la función binmode(), en la que podemos indicar la capa de traducción del controlador de ficheros: binmode(STDIN, ":encoding(utf8)"); o binmode(STDOUT, ":utf8");. Naturalmente, hay que hacerlo justo antes de empezar a leer o escribir al fichero.

(Más información en perldoc -f binmode)

Otra forma es declarándolo con el pragma open, al principio del programa:
use open IN => "iso-8859-15", OUT => "utf-8";

(Más información en perldoc open)


Con ejemplos: supongamos que estamos en un sistema Linux funcionando con codificación utf8. La salida del siguiente programa
es, justamente,Vemos que sale bien... pero en realidad, no... Lo que ocurre es que hemos escrito Camión, de forma literal, dentro del programa. Pero Perl no ve eso, sino Camión. Es decir, una ristra de caracteres codificados en iso-8859-1. Cuando le pedimos que lo saque por pantalla, pues la salida también estará en esa codificación, por lo que la salida es la misma: Camión, pero como estamos trabajando en una terminal utf8, nos transforma ese flujo en Camión.

Lo correcto, sería indicar a Perl que el programa sí está escrito en utf8:
pero... la salida es extraña:Ahora resulta que el programa Perl ha "entendido" que el carácter ó escrito en el programa, es realmente un carácter más (no dos bytes), así que lo transforma a un "carácter gordo". Hasta ahí, bien. El problema es la salida... sigue siendo en iso-8859-1. Perl transforma la cadena de caracteres a esa codificación, y entonces el "carácter gordo" ó (dos bytes) es transformado en el carácter simple ó (un byte). Y eso es lo que nos muestra (el byte 0xF3).

Hay que cambiar la codificación de la salida, para indicar que la queremos en utf-8:
y ahora ya sale bien:
Otra forma de indicarlo:

Finalmente, si nuestro sistema ya tiene el entorno configurado con utf8 (por ejemplo, la variable de entorno $LANG lo tengo puesto a es_ES.UTF-8), entonces vale con indicar


Por eso, al trabajar con Perl (o con cualquier otro lenguaje), hay que prestar atención
* en qué codificación, por defecto va a trabajar el programa. En Perl, sabemos que es iso-8859-1
* cuál es la codificación de lo que leemos
* en qué codificación deben ser las salidas.

En otros hilos de estos foros ya hemos comentado sobre esto:
* Nombres de ficheros con caracteres latinos en Windows
* Problemas al convertir UCS-2

Muy completa y clara tu explicación, explorer... Muchas gracias.

¡¡¡¡ A probarlo !!!!

Hola explorer. Yo tengo un problema parecido aunque el dato que recupero es de una tabla. Yo quiero dejar los acentos o tildes. He copiado tu código de
y el error que me sale es tanto con binmode() como con el use open:

Malformed UTF-8 character (unexpected non-continuation byte 0x6e, immediately after start byte 0xf3)

No sé si me falta instalar alguna librería. Tengo abierta una consulta sobre este tema.
Ahora mismo con mi proceso no me da ningún error pero en la salida me sustituye la tilde por un '?', es decir, en vez de camión a mi saldría cami?n.

El error dice que ha encontrado un carácter 0xf3 (la 'ó'), y que, como la salida está codificada en utf-8 (línea 4), para sacar el carácter correcto, ha mirado qué carácter sigue, y se ha encontrado con que es un 0x6e (la 'n'), que, juntos, no corresponden a ningún carácter válido en utf-8. Y de ahí, sale el error: no ha podido crear un carácter utf-8 válido, con esa combinación de caracteres.

El problema es el siguiente: en el programa, has declarado que está escrito en utf-8 (línea 2), pero tu no lo has hecho así: "Camión" (y el resto del programa) está en otra codificación de caracteres, distinta de la utf-8.

Has utilizado un editor de textos (para escribir el programa) con una codificación de caracteres distinta de la utf-8. Y en el programa dices que sí, que sí que está en utf-8. Perl intenta sacar caracteres utf-8, pero se encuentra con uno erróneo, y te avisa.