ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey Belov                         2:5085/1.158   09 Jan 2002  22:22:57
 To : All
 Subject : сортировка хэша
 -------------------------------------------------------------------------------- 
 

 
 нужно отсортировать хэш не по его ключам,а по его значениям.Остановился на след 
 решении,оно имеет право на жизнь,или я изобрел велосипед,может лучше решение
 есть?
 
 >   -= Тут начинается файл test.pl =-
 
 my %hsh = (
      Apple => 2,
      Orange => 2,
      Banan => 4,
      Lemon => 7);
 
 my @tmp = keys %hsh;
 
 for (my $i=0;$i < scalar(@tmp);$i++)
 {
 $lst[$i]->[0] = $tmp[$i];
 $lst[$i]->[1] = $hsh{$tmp[$i]};
 }
 
 @tmp =  sort {$b->[1] <=> $a->[1]} @lst;
 
 foreach (@tmp)
 {
 print "$_->[0]  $_->[1]\n";
 }
 
 >   -= А здесь test.pl кончается =-
                 C уважением, Sergey Belov.
 --- УТВЕРЖДАЮ. MSG-редактор капитан 2.5 ранга Голд Дедович
  * Origin: :) (2:5085/1.158)
 
 

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

Тема:    Автор:    Дата:    сортировка хэша   Sergey Belov   09 Jan 2002 22:22:57   сортировка хэша   Andrey Rookin   10 Jan 2002 13:54:18