ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Roman Povelicyn                      2:5020/400     10 Jan 2002  09:16:13
 To : Sergey Belov
 Subject : Re: сортировка хэша
 -------------------------------------------------------------------------------- 
 

 Wed, 09 Jan 2002 21:22:57 +0300 Sergey Belov
 <Sergey.Belov@p158.f1.n5085.z2.fidonet.org> написал:
 
 SB>Hужно отсортировать хэш не по его ключам,а по его
 
 значениям.Остановился на след
 Для этого используется воспомогательный массив, например @sorted_list:
 
 my %hash = (
      Apple => 2,
      Orange => 2,
      Banan => 4,
      Lemon => 7
 );
 
 my @sorted_list = sort {($hash{$a} <=> $hash{$b})||($a cmp $b)} keys
 %hash;
 
 while (my $key = shift @sorted_list) {
 print "$key   => $hash{$key}\n";
 }
 
 --
 WBR, Roman
 --- ifmail v.2.15dev5
  * Origin: Rinet Corp. News Service, Novosibirsk, Russia (2:5020/400)
 
 

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