https://opennet.dev/openforum/vsluhforumID9/8809.html Никак не могу сообразить почему следующая конструкция не работает:<br>[code]<br>%ha = (<br> 25 =&gt; 23,<br> 27 =&gt; 1,<br> 11 =&gt; 4,<br> 12 =&gt; 4,<br> 34 =&gt; 1,<br> 18 =&gt; 2,<br> 24 =&gt; 1,<br> 29 =&gt; 9<br>);<br><br>foreach(sort {$ha{$a} &lt;=&gt; $ha{$b}} keys %ha) {<br> ### print $_,' = ',$ha{$_},"\n";<br> %qqq=(%qqq, $_, $ha{$_});<br> }<br><br><br>while(($key,$value) = each %qqq){<br>print "$key = $value \n";<br>};<br>exit;<br>[/code]<br><br>В цикле foreach распечатка отсортированных значений проходит нормально, далее пытаюсь тут же занести ключи и значения в новый хеш, но что-то идет не так. Где ошибка? <br> https://opennet.dev/openforum/vsluhforumID9/8809.html#6 Thu, 05 Aug 2010 09:24:10 GMT [code]<br>print "$_ = $ha{$_}\n" for sort keys %ha;<br>[/code] <br><br><br> https://opennet.dev/openforum/vsluhforumID9/8809.html#5 Wed, 28 Jul 2010 17:39:45 GMT &gt;Странно как-то это все. Чем же функция руководствуется? Ведь каждый раз возвращаются <br>&gt;значения в определенном порядке, а не в разнобой. <br><br>Читайте что такое хэш и как он устроен.<br> https://opennet.dev/openforum/vsluhforumID9/8809.html#4 Tue, 20 Jul 2010 11:13:18 GMT &gt;В перле функция keys возвращает ключи хэша вовсе не в том порядке, <br>&gt;в котором они заносились. <br>&gt;Она возвращает их в таком порядке, который ей больше нравится. <br>&gt;Так что отсортировать хэш у вас не получится <br><br>Странно как-то это все. Чем же функция руководствуется? Ведь каждый раз возвращаются значения в определенном порядке, а не в разнобой. <br> https://opennet.dev/openforum/vsluhforumID9/8809.html#3 Tue, 20 Jul 2010 11:11:27 GMT &gt;Сделайте примерно так: <br>&gt;<br>&gt;@sorted_keys = sort {$ha{$a} &lt;=&gt; $ha{$b}} keys %ha);<br>&gt;<br>&gt;foreach(@sorted_keys){ <br>&gt; print "$_ = $ha{$_}\n"; <br>&gt;}; <br><br>Спасибо, вроде как то, что нужно, почему то сам не допер. Только скобку еще поставить надо:<br><br>[code]<br>@sorted_keys = (sort {$ha{$a} &lt;=&gt; $ha{$b}} keys %ha);<br><br>foreach(@sorted_keys){<br> print "$_ = $ha{$_}\n";<br>};<br>[/code]<br> https://opennet.dev/openforum/vsluhforumID9/8809.html#2 Tue, 20 Jul 2010 10:48:30 GMT Сделайте примерно так:<br><br>@sorted_keys = sort {$ha{$a} &lt;=&gt; $ha{$b}} keys %ha);<br><br>foreach(@sorted_keys){<br> print "$_ = $ha{$_}\n";<br>};<br> https://opennet.dev/openforum/vsluhforumID9/8809.html#1 Tue, 20 Jul 2010 10:27:05 GMT В перле функция keys возвращает ключи хэша вовсе не в том порядке, в котором они заносились.<br>Она возвращает их в таком порядке, который ей больше нравится.<br>Так что отсортировать хэш у вас не получится<br><br>