Re^2: min and max in a hash of hash

[wwe]

in reply to Re: min and max in a hash of hash
in thread min and max in a hash of hash

Hi ikegami, could you enlighten me what is wrong on using List::Util? the following code works fine, after I corrected the hash provided:

foreach my $y (sort keys %Year) {
  my $min_y = List::Util::min values %{ $Year{$y} };
  print "min of [$y] is [$min_y]\n";
}

Edit: this works for sure only if you doesn't care about the month of the min/max value.

[ikegami]

That will give you the minimum value for each year. The OP wanted just the overall minimum. If he doesn't need the y/m of the minimum, then he could use

use List::Util qw( min max );

my $min = min map { min values %{$Year{$_}} } keys %Year;
my $max = max map { max values %{$Year{$_}} } keys %Year;

Update: Fixed s/values/keys/ as per reply.

[pRaNaV]

hi, slight correction

use List::Util qw( min max );

my $min = min map { min values %{$Year{$_}} } keys %Year;
my $max = max map { max values %{$Year{$_}} } keys %Year;