Hola otra vez,
Tengo un problema con la ñ. Trabajo en UTF8 y al hacer un sort ordena mal la ñ ¿Alguien sabe cómo puedo solucionarlo?
Muchas gracias
-
- Publicidad
Sort con 'ñ'
2 mensajes
• Página 1 de 1
Sort con 'ñ'
por dgf » 2008-11-21 05:25 @267
- dgf
- Perlero nuevo
- Mensajes: 4
- Registrado: 2008-11-19 04:45 @239
Publicidad
por explorer » 2008-11-21 06:16 @303
El tema de la codificación distinta de la de latin1 es compleja... deriva de cuando a alguien se le ocurrió crear una torre tan alta como para desafiar a Dios... y claro... cuando le haces enfadar, pasa lo que pasa... 
Lo que debes hacer es indicar a Perl que tu programa está escrito en utf8:
La salida es:
Y como ves, la 'ñ' se ha colocado correctamente entre la 'í' y la 'ó'. Y las mayúsculas antes que las minúsculas.
Para ser más estrictos, deberías poner siempre 'use locale' para indicar a Perl que debe usar la codificación de la terminal en la que se está ejecutando. Esto se refiere a la ordenación de las letras, para los operadores lógicos de comparación y otras (sort(), lc(), uc(), ...).
Otro ejemplo, con palabras:
Sale:
Lo que debes hacer es indicar a Perl que tu programa está escrito en utf8:
Using perl Syntax Highlighting
#!/usr/bin/perl -l
use strict;
use warnings;
use diagnostics;
use utf8;
use locale;
use open OUT => ':locale';
my @x = split q{|}, "áéíóúüñçÁÉÍÓÚÜÑÇ";
print join q{}, @x;
print join q{}, sort @x;
use strict;
use warnings;
use diagnostics;
use utf8;
use locale;
use open OUT => ':locale';
my @x = split q{|}, "áéíóúüñçÁÉÍÓÚÜÑÇ";
print join q{}, @x;
print join q{}, sort @x;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
- Código: Seleccionar todo
áéíóúüñçÁÉÍÓÚÜÑÇ
ÁÇÉÍÑÓÚÜáçéíñóúü
Y como ves, la 'ñ' se ha colocado correctamente entre la 'í' y la 'ó'. Y las mayúsculas antes que las minúsculas.
Para ser más estrictos, deberías poner siempre 'use locale' para indicar a Perl que debe usar la codificación de la terminal en la que se está ejecutando. Esto se refiere a la ordenación de las letras, para los operadores lógicos de comparación y otras (sort(), lc(), uc(), ...).
Otro ejemplo, con palabras:
Using perl Syntax Highlighting
#!/usr/bin/perl -l
use utf8;
use locale;
use open OUT => ':locale';
@x = qw( coñe cuña cono cana coño cano cone coña caña cena cona cuna caño );
print join q{ }, @x;
print join q{ }, sort @x;
use utf8;
use locale;
use open OUT => ':locale';
@x = qw( coñe cuña cono cana coño cano cone coña caña cena cona cuna caño );
print join q{ }, @x;
print join q{ }, sort @x;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
- Código: Seleccionar todo
coñe cuña cono cana coño cano cone coña caña cena cona cuna caño
cana cano caña caño cena cona cone cono coña coñe coño cuna cuña
Última edición por explorer el 2008-11-24 04:18 @221, editado 1 vez en total
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
2 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 32 invitados