max function

[clarissa1996]

Does it exist a max() function in perl ?

Example:

$val = max(1,43,56);

Thanks for any help.

Michelangelo

 

[gremolin]

hm, I don't know such function in Perl, but you simply can use map for this:
$max_value = 0;
map { $max_value < $_ && $max_value = $_ } @array;
or for cycle:
$max_value < $_ && $max_value = $_ for @array;
As you like it.