https://opennet.ru/openforum/vsluhforumID9/7427.html Есть хэш хэшей вида:<br><br>%list = (<br> Ivanov =&gt; {<br> fio =&gt; "Иванов А.А.",<br> address =&gt; "192.168.1.1",<br> ostatok =&gt; -311.22,<br> },<br> Petrov =&gt; {<br> fio =&gt; "Петров Б.Б.",<br> address =&gt; "192.168.1.2",<br> ostatok =&gt; 1100.54,<br> },<br>...<br>);<br><br>Вывод производится так:<br><br> foreach $k (sort keys %list) {<br><br>print $list{$k}{fio}.":".$list{$k}{address}.":".$list{$k}{ostatok}."\n";<br> }<br><br>Посоветуйте, как описать sort{ ля{$b} &lt;=&gt; ля{$a} }, чтобы организовать вывод списка, отсортированного по размеру остатка.<br><br> https://opennet.ru/openforum/vsluhforumID9/7427.html#3 Thu, 19 Jun 2008 11:02:46 GMT Благодарю<br> https://opennet.ru/openforum/vsluhforumID9/7427.html#2 Thu, 19 Jun 2008 08:33:25 GMT &gt;Посоветуйте, как описать sort{ ля{$b} &lt;=&gt; ля{$a} }, чтобы организовать вывод списка, отсортированного по размеру остатка.<br><br>Самый очевидный вариант:<br><br>sort {$list{$a}{ostatok} &lt;=&gt; $list{$b}{ostatok}}<br> https://opennet.ru/openforum/vsluhforumID9/7427.html#1 Thu, 19 Jun 2008 08:24:37 GMT Короткий путь -- заменть<br>sort keys %list<br>на<br>sort {$list{$a}{'ostatok'} &lt;=&gt; $list{$b}{'ostatok'}} keys %list<br><br>но на больших массивах это будет протормаживать. Правильнее в таких случаях использовать преобразование рендола-шварца. В данном случае оно вот так выглядет:<br><br>map {$_-&gt;[1]} sort {$a-&gt;[0] &lt;=&gt; $b-&gt;[0]} map {[$list{$_}{'ostatok'}, $_]} keys(%list)<br><br>оно чуть медленней на маленьких списках, но на больших на много быстрей<br>