Foro - Perl en Español

Quisiera una orientación, les explico mi caso:

Tengo unos datos en una base Oracle.

Al momento de imprimirlos por pantalla algunos de estos datos vienen con parámetros raros (ej:锟斤拷一锟斤拷楼锟斤拷锟斤拷锟斤拷式锟斤拷锟). Si uno elige manualmente la opción de codificación en Chino Simplificado (GBK) en el navegador (FireFox) estos datos se muestran bien.

Ahora, me gustaría hacer una condición antes de imprimirlos que dijera que si vienen caracteres raros hacer una codificación a Chino Simplificado e imprimirlos.

¿Se podrá hacer esto? ¿Cómo?

Gracias por su ayuda y orientación.

El asunto puede ser bastante complicado. Si no sabemos la codificación de los datos en la base de datos, éstos, pueden ser cualquier cosa.

Hay un módulo en Perl, Encode::Guess, que intenta adivinar la codificación de los datos.

Los datos de partida han de ser: o un flujo de bytes ascii, o utf8 o UTF-16/32, con la marca BOM, al principio.

Y se le puede indicar la(s) codificación(es) en las que sospechamos que pueden estar esos datos.

Una vez que sepas en qué codificación están, puedes usar las funciones del módulo Encode, para pasarlos todos a utf8, y de esa manera no tienes que poner una codificación distinta en las páginas HTML.

Gracias,

Puedo lograr saber qué codificación es, pero, ¿cómo se usa este módulo? No me imagino mucho la condición ni la ejecución del traspaso.

También estuve averiguando de que se puede hacer con el módulo "utf8;"

Saludos.