Re: Sorting a hash of hashes

The sort function takes an optional customised sort routine wherin you compare aspects of $a and $b. perldoc -f sort.

my %HoH = (
    SUB1 => {
        Test1 => {
            value1   => "2300",
            value2   => "0.01",
        },
        Test2 => {
            value1   => "5000",
            value1     => "0.34",
        },
    },
    SUB2 => {
        Test1 => {
            value1   => "2800",
            value2   => "0.05",
        },
    },
);
for my $sub_key (sort {$HoH{$a}{Test1}{value1} <=> $HoH{$b}{Test1}{val
+ue1} }keys %HoH){
   print "$HoH{$sub_key}{Test1}{value1}\n";
}
[download]

EDIT: Corrected inline sort routine, original post made pre-coffee and shower :)

print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."

Comment on Re: Sorting a hash of hashes Select or Download Code

In Section Seekers of Perl Wisdom