in reply to Printing a Tree of Hash of hashes sorted by value
Update:On second thoughts - this is probably a marginal gain in efficiency - array access Vs. Hash value fetch.#--snip -- Hash declaration omitted -- #-- Schwartzian Transform Sort -- my @sorted= map{ $_->[3] } sort{ $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1] || $a->[2] cmp $b->[2] } map{ [ @{ $myData{$_} }{qw| Category File Name | },$_] } keys %myData; print join (", ",@sorted), "\n"; #Prints: Method2, Method4, Method3, Method1
Have you been high today? I see the nuns are gay! My brother yelled to me...I love you inside Ed - Benny Lava, by Buffalax
|
|---|