VPF::Сортировка с учетом локали ru_RU.CP1251

ginnie

Дата 23.12.2010, 19:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

Уважаемые коллеги!

Все, наверное, об этом уже знают, а вот я столкнулся впервые.
Есть набор символов "АБВГДабвгдABCDEFabcdef", как вы думаете, какой будет порядок символов, после сортировки sort {$a cmp $b} с включенной локалью ru_RU.CP1251?
Как правильно сделать более привычную сортировку "ABCDEFabcdefАБВГДабвгд", (no locale; правильным мне не кажется)?

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

Pfailed

Дата 24.12.2010, 17:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 22
Всего: 39

Вроде работает. Или я не так тестирую?

Код


use POSIX;

POSIX::setlocale( POSIX::LC_ALL, "ru_RU.cp1251" );
print join '', sort {$a cmp $b} split //, "АБВГДабвгдABCDEFabcdef";

Цитата

$ perl test.pl | iconv -f windows-1251
ABCDEFabcdefАБВГДабвгд

$ locale
LANG=ru_RU.UTF-8
LANGUAGE=
LC_CTYPE="ru_RU.UTF-8"
LC_NUMERIC="ru_RU.UTF-8"
LC_TIME="ru_RU.UTF-8"
LC_COLLATE="ru_RU.UTF-8"
LC_MONETARY="ru_RU.UTF-8"
LC_MESSAGES="ru_RU.UTF-8"
LC_PAPER="ru_RU.UTF-8"
LC_NAME="ru_RU.UTF-8"
LC_ADDRESS="ru_RU.UTF-8"
LC_TELEPHONE="ru_RU.UTF-8"
LC_MEASUREMENT="ru_RU.UTF-8"
LC_IDENTIFICATION="ru_RU.UTF-8"
LC_ALL=

$ locale -a
C
POSIX
ru_RU.cp1251
ru_RU.utf8

$ uname
Linux

Добавлено через 12 минут и 16 секунд
Видимо речь была еще и про use locale;
Как видно отсортировалось по алфавиту. Думаю это фича.

--------------------

I'm on CPAN
I'm on github

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »