note
hippo
<p>To my eyes that code is bordering on unmaintainable. If you are attempting to sort by key at each level in turn (which is what I think you are doing - correct me if that isn't the case) then think about recursion. Applying the relevant <a href="http://perldoc.perl.org/perlfaq4.html#How-do-I-sort-a-hash-%28optionally-by-value-instead-of-key%29?">FAQ</a> (which also discusses sorting by value) just once in a recursive subroutine should do the trick without resorting to <c>$foo{$bar}{$baz}{$quux}{$frob}</c> constructs.</p>
1083689
1083689