|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Fedor Bolshakoff 2:5005/63 10 Apr 2000 15:00:29
To : All
Subject : Сортировать ассоциированый массив для вывода
--------------------------------------------------------------------------------
Требуется сабж, сортировка по значениям. Я ничего умнее не придумал, как:
for (%a){
if ($a{$_}) { @a[$i] = $a{$_}; $i++; }
}
@a = sort {$b <=> $a} @a;
for $i (@a){
for $j (%a){
if ($a{$j} == $i) { print "$a{$j} - $j" ;
$a{$j} = -1; }
}
}
Т.е. сливаю значения в массив, сортирую и печатаю по полученному массиву с
заменой напечатанных значений за рабочий интервал. Может есть что либо по
стандартнее, по проще?
\WoodyWoodPekker woodywoodpekker@mail.ru 22944228
--- кадопытные прысы
* Origin: редакция сожалеет о допущенных очипятках (2:5005/63)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
