in reply to
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";
}
EDIT: Corrected inline sort routine, original post made pre-coffee and shower :)
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."