Исходное сообщение
"Сортировка хеша в perl" Отправлено allexnew, 20-Июл-10 10:24
Никак не могу сообразить почему следующая конструкция не работает: %ha = (     25 => 23,     27 => 1,     11 => 4,     12 => 4,     34 => 1,     18 => 2,     24 => 1,     29 => 9 ); foreach(sort {$ha{$a} <=> $ha{$b}} keys %ha) {     ### print $_,' = ',$ha{$_},"\n";      %qqq=(%qqq, $_, $ha{$_});      } while(($key,$value) = each %qqq){     print "$key = $value \n";     }; exit; В цикле foreach распечатка отсортированных значений проходит нормально, далее пытаюсь тут же занести ключи и значения в новый хеш, но что-то идет не так. Где ошибка?