Re: Max value


go ahead... be a heretic
	PerlMonks

Re: Max value

by choroba (Cardinal)

on Apr 16, 2019 at 14:17 UTC ( [id://1232662]=note: print w/replies, xml )

Need Help??

in reply to Max value

my %hash_name = (a => 1, b => 2, c => 3);
my $max = (keys %hash_name)[0];
$hash_name{$_} > $hash_name{$max} and $max = $_ for keys %hash_name;
print $max;
[download]

or using List::UtilsBy:

use List::UtilsBy qw{ max_by };

my %hash_name = (a => 1, b => 2, c => 3);
my $max = max_by { $hash_name{$_} } keys %hash_name;
print $max;
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]