use POSIX qw(locale_h);
$old_locale = setlocale(LC_CTYPE,"ru_KOI8R");@values = sort { $labels{$a} cmp $labels{$b} } keys %labels;
Но в кодировке KOI8R буквы "Ф" и "Х" стоят не по алфавиту.
Подскажите как решить проблему.
Быстрое решение: use locale;Правильное решение: man perllocale :-)
Правильное решение смотрел и раньше.
При повторном просмотре правильного решения обнаружил, что на сортировку влияет параметр LC_COLLATE или LC_ALL.
Но как и раньше буквы "Ф" и "Х" сортируются не в алфавитном порядке.
Числовые коды этих букв меньше чем должны быть при правильном алфавитном порядке. А сортировка функцией "cmp" сравнивает числовые коды букв.
Для чешского языка на CPAN лежит библиотека функций работы с национальным алфавитом.
Может кто нибудь встречал что-то подобное для русского языка?
А какая система, какая libc, какой Perl? Дело в том, что после use locale для сравнения используется strxfrm() (так говорит man perllocale из Perl 5.6.0), соответственно, за сравнение отвечает libc. Если локаль настроена неправильно, вот тогда и будут глюки. За дополнительной информацией можно сходить на http://www.sensi.org/~alec/locale/index.html, после чего придется разбираться и правильно настраивать.
Спасибо за линк.На локальной машине все заработало.
Проблема была в том, что ru_SU не является "alias" к ru_RU, ru_KOI8R и ru. А переменная окружения LC_ALL по умолчанию установлена в ru_SU.
Теперь буду выяснять как у провайдера настроина переменная LC_ALL.
Правильно, страна SU теперь съежилась до размеров Судана. :-)Кстати, скорее всего LC_ALL у провайдера не стоит. Никаких проблем - делается:
use posix qw(locale_h);
foreach (grep {/^LC_/} keys %ENV) { delete $ENV{$_} }
$ENV{'LANG'} = 'ru_RU.KOI8-R'; # или как надо в той системе
setlocale(LC_ALL, "");Рекомендация: ставить use locale только в том блоке, где это надо - иначе с -T будет проблемы.
Еще раз большое спасибо за помощь.Как только оживет провайдер, попробую твои рекомендации.