ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Њ ЄбЁ¬ …¬Ґ«мп­®ў                     2:5020/400     28 Jan 2003  17:05:24
 To : Michael Babakov
 Subject : Сортировка в koi8
 -------------------------------------------------------------------------------- 
 

 Hello, All!
 
 Беру данные из Interbase, рисую таблицу. Хочу, чтоб при клике на заголовке
 таблицы шла сортировка по этому столбцу. Hо строки хранятся в koi8, в
 результате при сортировке, например буква Я идет перед Ш.
 
 Как правильно сортировать?
 
 Делаю так:
     my $sort_n = sub { $hash{$a}{$sort} <=> $hash{$b}{$sort};}; # числовая
 сортировка
     my $sort_a = sub { $hash{$a}{$sort} cmp $hash{$b}{$sort};}; # лексическая
 сортировка
     my $SORT = ($sort_numeric?\&$sort_n:\&$sort_a);
 
     my @sort = sort $SORT keys %hash;
     my @sort1 = ($sort_reverse?reverse @sort:@sort);
 
 Может ли sort принимать что-то типа последовательности сортировки,
 etc?
 
 -- 
 Regards,
 Maxim Yemelyanov
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Enigma Soft (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Перевод   Maxim Loverov   26 Jan 2003 19:45:20   Re: Перевод   Michael Babakov   28 Jan 2003 13:42:32   Сортировка в koi8   Њ ЄбЁ¬ …¬Ґ«мп­®ў   28 Jan 2003 17:05:24   Сортировка в koi8   Timur Vafin   28 Jan 2003 17:37:19