ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrew Alakozow                      2:5061/6       09 Jan 2007  11:53:23
 To : All
 Subject : Re: Опять сортировка
 -------------------------------------------------------------------------------- 
 

 
 >  Есть хеш
 > При переборе необходимо отсортировать
 > foreach my $tmp (keys %{$self->{par1}->{par2}}) {
 >  print "$tmp\n";
 > }
 > В $tmp получаются числа от 1..200
 > Hадо отсортировать по значению в $tmp
 > Пробовал sort {$a <=> $b}, sort{$self{$a} <=> $self{$b}}
 > Hе проходит.
 
 $self->{par1}->{par2} = { map {$_ => 1} (1..200) };
 
 foreach my $tmp (sort { $a <=> $b } keys %{$self->{par1}->{par2}}) {
    print "$tmp\n";
 }
 
 -- 
 Андрей.
 --- Mozilla Thunderbird 1.0.7 (X11/20060123)
  * Origin: Life In The Dark (2:5061/6)
 
 

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

Тема:    Автор:    Дата:    Опять сортировка   Nikolay Pichtin   06 Jan 2007 23:33:44   Re: Опять сортировка   Ilya Anfimov   09 Jan 2007 11:53:45   Re: Опять сортировка   Andrew Alakozow   09 Jan 2007 11:53:23