Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: min and max in a hash of hash

by Marshall (Prior)
on Jul 12, 2010 at 09:32 UTC ( #848959=note: print w/ replies, xml ) Need Help??

in reply to min and max in a hash of hash

One way to do this is to transform the hash structure into an AoA so that it is easier to sort, then take first (index 0) and last (index -1) to get min and max. This type of approach allows easy reporting "ties" for min or max if that is important to you, eg maybe the minimum occurs on three different dates. Perl is very good at sorting and this runs faster than one might imagine.

#!/usr/bin/perl -w use strict; use Data::Dumper; my %years =( 2007 => { '01' => 07, '02' => 34, '10' => 24, '09' => 14, }, 2008 => { '01' => 11, '02' => 64, '03' => 20, '09' => 13, }, ); my @year_data; foreach my $year (keys (%years)) { foreach my $month (keys %{$years{$year}}) { push (@year_data, [$year, $month, $years{$year}{$month}]); } } @year_data = sort { my ($yearA, $monthA, $dataA) = @$a; my ($yearB, $monthB, $dataB) = @$b; $dataA <=> $dataB or $monthA <=> $monthB or $yearA <=> $yearB }@year_data; print "minimum is: @{$year_data[0]}\n"; print "maximum is: @{$year_data[-1]}\n"; #minimum is: 2007 01 7 #maximum is: 2008 02 64

Comment on Re: min and max in a hash of hash
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://848959]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (3)
As of 2015-10-04 21:49 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (105 votes), past polls