Foro - Perl en Español

℞ 10: Nombres de caracteres personalizados

Como muchas otras recetas demuestran, el pragma charnames ofrece un considerable poder a la hora de usar y manipular caracteres Unicode a partir de sus nombres. Su opción :alias le permite crear nombres con ámbito léxico, a caracteres actuales, o incluso dar nombres útiles a caracteres de uso privado que no lo tengan:

Puede sobreescribir los nombres actuales (léxicamente, claro) con diferentes caracteres.

Esta característica tiene algunas limitaciones. Para un mejor efecto, los alias deben ceñirse a las reglas de los identificadores ASCII y no deben parecerse a los cuantificadores de expresiones regulares. Solo puede crear un alias para un carácter cada vez; existen otras opciones para crear un alias a una secuencia de caracteres.

Como siempre, la documentación del pragma charnames ofrece más detalles.

Artículo original (en inglés)

℞ 11: Nombres de códigos de carácter CJK

CJK se refiere a Chino, Japonés y Coreano. En el contexto de Unicode, normalmente se refiere a los ideogramas Han usados en el Chino moderno y sistemas de escritura Japonés. Como es de esperar, los lenguajes pictóricos como el Chino, hace la gestión Unicode más compleja.

Sinogramas como "東京" devuelven nombres de caracteres de CJK UNIFIED IDEOGRAPH-6771 y CJK UNIFIED IDEOGRAPH-4EAC, porque sus "nombres" varían entre los lenguajes. El módulo de CPAN Unicode::Unihan tiene una gran base de datos para decodificarles (a estos y a mucho más), siempre que sea capaz de entender su salida.
imprime:
Si tiene en mente un esquema específico de romanización, use el módulo específico:
imprime:

Artículo original (en inglés)

℞ 12: De/codificación explícita

Mientras que el preámbulo Unicode Perl estándar hace que los gestores de archivos de Perl use la codificación UTF-8 por defecto, los gestores de archivo no son las únicas fuentes y sumideros de datos. En ciertas ocasiones, como al leer de una base de datos, puede recibir texto codificado que necesitará decodificar.

El módulo principal Encode ofrece dos funciones para manejar estas conversiones. (Recuerde que decode() significa convertir octetos, de una codificación conocida, a la forma Unicode interna de Perl; y decode() significa convertir de la forma interna de Perl a una codificación conocida).

Para flujos que tengan la misma codificación, no use encode/decode; en su lugar active la codificación cuando abra el archivo o, inmediatamente después con binmode, tal y como se describe en una receta posterior. Recuerde la regla canónica de Unicode: siempre de/codifique en las fronteras de su aplicación.

Artículo original (en inglés)

℞ 13: Decodificar los argumentos del programa en utf8

Mientras que el preámbulo Unicode Perl estándar hace que los gestores de archivos usen la codificación UTF-8 por defecto, los gestores de archivo no son las únicas fuentes y destinos de datos. Los argumentos en la línea de comandos de sus programas, disponibles a través de @ARGV, también pueden necesitar ser decodificados.

Puede hacer que Perl maneje esta operación por si solo automáticamente, de dos formas distintas; y una más, usted mismo, de forma manual. Como se documenta en perldoc perlrun, la opción -C controla las características Unicode. Use el modificador A para que Perl trate a sus argumentos como cadenas UTF-8:

Puede, naturalmente, usar -C en la línea shebang de sus programas.

La segunda forma es usar la variable de entorno PERL_UNICODE. Toma los mismos valores que la opción -C. Para obtener los mismos efectos que -CA, escriba:

Puede desactivar temporalmente este tratamiento Unicode automático con PERL_UNICODE=0.

Finalmente, puede decodificar los contenidos de @ARGV usted mismo, de forma manual, con el módulo Encode:


Artículo original (en inglés)

℞ 14: Decodificar los argumentos del programa según la codificación de la configuración regional

Mientras que lo más normal, en los modernos sistemas operativos, que sus argumentos de la línea de comandos estén codificados en UTF-8, @ARGV puede usar otras codificaciones. Si ha configurado su sistema con una configuración regional correcta, puede necesitar decodificar @ARGV adecuadamente. Y lo debe hacer de forma manual, a diferencia del decodificado automático de @ARGV en UTF-8.

Instale el módulo Encode::Locale desde CPAN:


Artículo original (en inglés)

℞ 15: Declarar STD{IN,OUT,ERR} para que sean UTF-8

Siempre convierta hacia o desde su codificación deseada, en las fronteras de sus programas. Esto incluye a los gestores de archivos estándares STDIN, STDOUT, y STDERR.

Como se documenta en perldoc perlrun, la variable de entorno PERL_UNICODE o la opción en la línea de comandos -C permiten indicarle a Perl que de/codifique desde y hacia estos gestores de archivos, en UTF-8, con la opción S:

Dentro de su programa, el pragma open le permite indicar la codificación por defecto para estos gestores de archivos, todo de una vez:

Debido a que Perl usa capas E/S para implementar la codificación y decodificación, también puede usar el operador binmode sobre los gestores de archivo, directamente:


Artículo original (en inglés)

℞ 16: Declarar STD{IN,OUT,ERR} para que estén codificados según la configuración regional

Siempre convierta hacia o desde su codificación deseada, en las fronteras de sus programas. Esto incluye a los gestores de archivos estándares STDIN, STDOUT, y STDERR. Mientras que lo más común, en los sistemas operativos modernos, es soportar UTF-8 en las configuraciones de los gestores de archivo, quizás puede necesitar otras codificaciones distintas.

Perl puede respetar sus actuales configuraciones regionales para sus gestores de archivo por defecto. Empiece instalando el módulo Encode::Locale desde CPAN.

El módulo Encode::Locale le permite usar "aquella codificación que la terminal asociada espera" para los gestores de archivo de entrada y salida asociados a los terminales. También le permite especificar "aquella codificación que el sistema de archivos usa para los nombres de archivos"; vea la documentación para más información.

Artículo original (en inglés)

℞ 17: Hacer la E/S por defecto a utf8

Si ha tenido la mala suerte de ver el aviso Unicode "wide character in print" (carácter ancho en impresión), quiere decir que se le olvidó configurar la apropiada codificación Unicode en el gestor de archivo, en algún lugar de su programa. Recuerde que la regla de manejo Unicode en Perl es "siempre de/codifique en las fronteras de su programa".

Puede fácilmente decodificar STDIN, STDOUT y STDERR como UTF-8 por defecto, o decodificar STDIN, STDOUT y STDERR según la configuración regional por defecto, o usar binmode para configurar la codificación en un gestor de archivo específico.

De otra manera, puede poner la codificación por defecto en todos los gestores de archivo a lo largo de todo el programa, o en contextos léxicos. Como se documenta en perldoc perlrun, están disponibles la opción -C y la variable de entorno PERL_UNICODE. Use la opción D para hacer que todos los gestores de archivos por defecto sigan la codificación UTF-8. Es decir, archivos abiertos sin un argumento de codificación serán en UTF-8:

El pragma open configura la codificación por defecto en todas las operaciones de gestores de archivos, en su ámbito léxico:

Note que el pragma open es, actualmente, incompatible con el pragma autodie.

Artículo original (en inglés)

℞ 18: Hacer que toda la E/S y argumentos trabajen por defecto en utf8

La regla principal del manejo Unicode en Perl es "siempre codifique y decodifique en las fronteras de su programa".

Si ha configurado todo de tal manera que todos los datos que entran y salen usen codificación UTF-8, puede hacer que Perl realice por usted la apropiada codificación y decodificación. Como se documenta en perldoc perlrun, la opción -C y la variable de entorno PERL_UNICODE están disponibles. Use la opción S para hacer que los gestores de archivo estándares de entrada, salida y error usen codificación UTF-8. Use la opción D para hacer que todos los gestores de archivos usen codificación UTF-8. Use la opción A para decodificar los elementos @ARGV como UTF-8:

Dentro de su programa, puede obtener los mismos efectos con el pragma open para establecer las codificaciones por defecto en los gestores de archivo y el módulo Encode para decodificar los elementos de @ARGV:


Artículo original (en inglés)

℞ 19: Abrir archivo con una codificación específica

Mientras que es delicado configurar la codificación Unicode por defecto para E/S (℞ 17), algunas veces la codificación por defecto no es correcta. En ese caso, especifique manualmente la codificación para un gestor de archivo, en la opción de modo en open, o con el operador binmode. Las capas E/S de Perl manejarán por usted la codificación y decodificación. Esta es la forma normal de gestionar texto codificado, sin llamar a funciones de bajo nivel.

Para especificar la codificación de un gestor de archivo para la entrada:

Para especificar la codificación de un gestor de archivo para la salida:

Aquí se pueden especificar más capas aparte de la de codificación. Por ejemplo, el conjuro ":raw :encoding(UTF-16LE) :crlf" incluye una gestión CRLF implícita. Ver PerlIO para más detalles.

Artículo original (en inglés)