Как отсортировать файл по полю, которое содержит фамилии на русском.
стандртно сортирует неправильно...
идет а,б,в,г... появляется Х... дальше правильно... потом опять Щ....

Как сделать?

use Locale;

Тоже самое выдает... так делал первоначально.

Все работает.

Код

#!/usr/bin/perl -w use strict; use warnings; use locale; my @arr = qw(щ о п а в л д к ш з ф ц у б х с ч ы); foreach my $letter ( sort { $a cmp $b } @arr ) {    print $letter, "\n"; }

Цитата(korob2001 @ 23.4.2004, 18:00)

Все работает. Код #!/usr/bin/perl -w use strict; use warnings; use locale; my @arr = qw(щ о п а в л д к ш з ф ц у б х с ч ы); foreach my $letter ( sort { $a cmp $b } @arr ) {    print $letter, "\n"; }

запустил твой скриптик у себя. результат:

а
б
ц
д
ф
х
к
л
о
п
с
у
в
ы
з
ш
щ
ч

результат запуска locale:

LANG=ru_RU.KOI8-R
LC_CTYPE="ru_RU.KOI8-R"
LC_NUMERIC="ru_RU.KOI8-R"
LC_TIME="ru_RU.KOI8-R"
LC_COLLATE=POSIX
LC_MONETARY="ru_RU.KOI8-R"
LC_MESSAGES="ru_RU.KOI8-R"
LC_PAPER="ru_RU.KOI8-R"
LC_NAME="ru_RU.KOI8-R"
LC_ADDRESS="ru_RU.KOI8-R"
LC_TELEPHONE="ru_RU.KOI8-R"
LC_MEASUREMENT="ru_RU.KOI8-R"
LC_IDENTIFICATION="ru_RU.KOI8-R"
LC_ALL=

где грабли???

ЗЫ. почему забанили сурийца?

Это сообщение отредактировал(а) pych - 26.4.2004, 07:29

Все ок... но осталась все тажа проблема.

Цитата

запустил твой скриптик у себя. результат:

Странные вещи просходят. Какая у тебя версия Perl?

Это сообщение отредактировал(а) korob2001 - 27.4.2004, 19:30

This is perl, v5.6.1 built for i586-linux

Copyright 1987-2001, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using `man perl' or `perldoc perl'. If you have access to the
Internet, point your browser at http://www.perl.com/, the Perl Home Page.

Линуксовая версия, вполне возможно с кодовыми страницами проблемы.

В догонку данному сабжу. Была тут у меня примерно такая же задачка, отсортировать файл с фамилиями в алфавитном порядке. Каждая фамилия находится на одной строке. Вроде плёвая задачка. И я бы применил к ней то же sort { $a cmp $b } @arr. Да вот условие не очень привлекательное - не использовать ни одну встроенную функцию сортировки... Есть какие нить предложения?

Цитата(HalkaR @ 26.4.2004, 23:31)

Линуксовая версия, вполне возможно с кодовыми страницами проблемы.

Как определить?? где можно взять нормальные кодовые страницы?

2 Pattern® а в чем собссссна проблема?? Пузырек еще ни кто не отменял!!!! :-))))))

Цитата

- А нас в Кембридже учили после того, как сходишь в туалет, мыть руки... - А в нашем институте не учили на руки писать.. (© Из анекдота)

2 GoodBoy ->Да дело то не в пузырьках (и не в их количестве, если кто то захочет добавить ). А в том, что меня в институте учили "не изобретать велосипед дважды" (почему и привёл цитату из анекдота). А подобная задача меня просто выбила из колеи: почему встроенную функцию сортировки использовать нельзя, а остальные можно?

Цитата

Как определить?? где можно взять нормальные кодовые страницы?

Код

$koi_page_ = '\xE1\xE2\xF7\xE7\xE4\xE5\xB3\xF6\xFA\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF2\xF3\xF4\xF5\xE6\xE8\xE3\xFE\xFB\xFD\xFF\xF9\xF8\xFC\xE0\xF1\xC1\xC2\xD7\xC7\xC4\xC5\xA3\xD6\xDA\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD2\xD3\xD4\xD5\xC6\xC8\xC3\xDE\xDB\xDD\xDF\xD9\xD8\xDC\xC0\xD1'; $win_page_ = '\xC0\xC1\xC2\xC3\xC4\xC5\xa8\xC6\xC7\xC8\xC9\xCA\xCB\xCC\xCD\xCE\xCF\xD0\xD1\xD2\xD3\xD4\xD5\xD6\xD7\xD8\xD9\xDA\xDB\xDC\xDD\xDE\xDF\xE0\xE1\xE2\xE3\xE4\xE5\xb8\xE6\xE7\xE8\xE9\xEA\xEB\xEC\xED\xEE\xEF\xF0\xF1\xF2\xF3\xF4\xF5\xF6\xF7\xF8\xF9\xFA\xFB\xFC\xFD\xFE\xFF';

2 Суриец -> Операция сортировки с помощью cmp происходит по возрастанию их ASCII-кода. Вот посмотри в какой последовательности идут кодовые страницы koi8-r и win-1251 ( от "А" до "Я" и от "а" до "я"). Теперь то понятно, почему "баги" вылезли?

Pattern® , хочешь сказать, что никак не получится отсортировать??? Не верю... должен быть способ. Вот только какой...