Foro - Perl en Español

La explicación es que estás usando codificación en UTF8, por lo que la eñe se convierte en dos caracteres.

Luego, al sacarlo entre comillas dobles, Perl muestra todo el array (dos caracteres) separados por el delimitador $", pero tu terminal no sabe interpretarlos.

En cambio, cuando lo haces sin comillas dobles, salen todos los elementos juntos, y tu terminal cree recibir un solo carácter utf8, por lo que muestra la eñe.

Es muy importante saber:
* con qué codificación estás recibiendo la entrada
* con qué codificación estás escribiendo la salida
* con qué codificación estás programando.

En perlunicode se comenta un poco todo esto, en la sección Byte and Character Semantics.

Posibles soluciones...
* Si estás seguro que sólo quieres manejar bytes, use bytes;
* Si vas a escribir caracteres como la eñe o acentuados dentro del código, use utf8;
* Si vas a leer o escribir ficheros con alguna determinada codificación y la quieres pasar a otra, use encoding, Encode y PerlIO, y otras.

De lectura obligada: perluniintro. Un resumen es que a partir de v5.8, Perl maneja utf8 internamente en su manejo de strings, pero no en los identificadores ni en los literales. Por ejemplo, podríamos escribir:
y lo grabamos en disco también en formato utf8, el programa funcionará y nos devolverá un uno y una eñe (en formato utf8). Observa también que tenemos una variable escrita con caracteres utf8: $carácter. Todo esto es posible porque hemos puesto use utf8; al principio, y con eso Perl maneja esos caracteres en las dos situaciones: identificadores y literales.

No es recomendable (todavía) usar este tipo de programación, pero Perl ya está preparado para el futuro.

Si nos das algún detalle más de lo que quieres hacer, quizás la solución sea muy sencilla.

robenavente escribiste:* Si redirijo la salida a un archivo al leerlo (como utf8) me devuelve nuevamente "??" y como bytes me devuelve "Ã ±". Mi terminal me lee correctamente nombres de archivos con ñ y tildes así que no sé si va por ahí el problema.

Los caracteres "??" son los correspondientes a la eñe en utf8 ("Ã ±") pero tu terminal no es capaz de representarlos por alguna razón distinta a la de pintarlos como bytes, que sí pinta correctamente los 2 bytes que forman a la eñe en utf8. Quiere esto decir que tu terminal Y tu editor de textos ha escrito dentro del código fuente del Perl una eñe en utf8, y por lo tanto, para Perl son DOS caracteres (dos bytes): porque no sabe que el literal "ñ" que has escrito en realidad solo es un carácter. Tu ves solamente uno porque eso es lo que escribes y lo que te muestra tu editor de textos y tu terminal, pero DENTRO del código Perl hay dos bytes. Y Perl lo tratará de esa manera y mostrará dos bytes/caracteres.

robenavente escribiste:* Probé con "use bytes" (sacando la á del código) y la salida del código que diste es "2ñ". Pero al usar "use utf8" la salida es "1?"

Claro, al decirle a Perl que "use utf8", le estamos indicando que todos los caracteres dentro del código fuente 'extraños' son en realidad caracteres utf8. La "ñ" entonces es ->1<- solo carácter, con dos bytes, pero Perl lo tratara como solamente ->1<-. Internamente, Perl siempre maneja utf8, pero con "use utf8" le estamos diciendo, ADEMÁS, que TAMBIÉN son utf8 los caracteres que hay en los literales (cadenas de texto explícitas) y en los identificadores que usemos (podríamos escribir un programa Perl en chino o japonés). Ejemplo:



El que no te salga la eñe en pantalla, me preocupa más. Perl dice que, efectivamente, hay un solo carácter, pero al sacarlo, la terminal no se entera. ¿Qué versión de Perl estás usando?

robenavente escribiste:* Guardando el archivo de texto como utf8 el resultado es el mismo.

¿Bueno o malo?

Se supone que si estás en una terminal en utf8, lo grabarás de la misma manera, porque es entonces cuando se explica lo de los '?': la eñe se la mandas en tu terminal como utf8 pero el editor de texto la guarda con otra codificación, traduciendo los dos caracteres a '?'. Y al poner "use utf8" estás diciendo a Perl que la eñe es un carácter utf8, con dos bytes, PERO el fichero no lo grabas en utf8, por lo que entonces sacará el '1' junto con un carácter de la codificación en la que está grabado el fichero.

robenavente escribiste:* Bueno la verdad la idea era que mi programa identificara si el carácter de una cadena era una cierta letra (por ejemplo la ñ) y la cambiara por otra (por ejemplo una h). Pero como a la vez, si era h, debía cambiarla por otra, no podía usar un s/n/h/gi, por ejemplo (cosa que si funciona bien) puesto que luego habrían más h de las que habían originalmente. La única solución que se me ocurrió era buscar carácter por carácter (por eso el split //) y cambiarlo en caso de que corresponda, cuestión que funciona, pero una vez que hago el split no es posible que reconozca la ñ, creo recordar que si hacía un if ($letra eq "ñ" ) me consideraba la letra como si fuera ñ. Bueno eso, seguiré revisando la documentación a ve si encuentro algo.

Es que eso no es un trabajo de sustitución, sino de traducción:

Código: Seleccionar todo

$ ./kk.pl
La rosa de los vientos
Lo raso de las vientas

Naturalmente, también puedes hacerlo leyendo carácter a carácter, bien sea con split o con substr.

Yo uso, en modo texto, el joe, y en gráfico, Eclipse, que sí me permiten cambiar la codificación de los fuentes.

El error que te devuelve si lo grabas como utf8 con el SciTE, me recuerda que me lo daba a mí, en otra ocasión, porque la primera línea del código fuente no era el shebang (#!) y/o había un carácter extraño en esa primera línea.

Viendo el resultado de la ejecución yo lo veo correcto: Perl está devolviendo el carácter correspondiente al que escribiste en el código. Lo que ocurre es que hay una codificación distinta entre la que escribiste en el código, la que maneja Perl y la que te muestra la salida estándar.

Debes hacer lo siguiente: debe coincidir la codificación del editor de texto con la presencia o no de la línea utf8, junto con la codificación del terminal que ofrece la salida.

Como tu sistema trabaja en utf8, la recomendación es que sigas trabajando en ella. O editar los locales para trabajar en otra. Yo, hasta el año pasado, he trabajado con la ISO-8859-15 (Europa Central con el €).

Hoy en día lo recomendable es usar el utf8, aunque eso significa que nos alejamos de aquel mundo anterior en que los caracteres eran bytes y los bytes, caracteres.

Si sigues usando utf8 en el entorno (locales), entonces debes asegurarte que usas un editor de texto que lee y graba en utf8. Después, al editar un código Perl, si en algún lugar dentro de él, usas caracteres 'extraños' y quieres que Perl los trate como tal, debes poner el use utf8;, para indicarle que hay caracteres utf8 en el código. Si no, los tratará como dos bytes cualesquiera.

A veces, lo que hago es ver el contenido del texto con un editor hexadecimal o volcarlo con el comando hexdump, para ver realmente qué es lo que hay dentro del archivo.

Lo solucioné borrando la línea y escribiendo una nueva.

Para lo de las eñes:
* Ejecuta el comando locale para saber qué codificación tiene tu shell. Ese locale debe coincidir con la codificación de la terminal que estés usando.
* Si, en la línea de órdenes, pulsas la tecla de la ´ñ´ y sale una ´ñ´ en pantalla (y lo mismo para los acentos), entonces la terminal está bien configurada.
* Haz un echo -n 'ñ' > kk.txt y mira a ver la longitud que tiene el fichero. Si son dos bytes, es que has grabado un carácter utf8.
* Repítelo, con un editor de textos.