Find the maximum value in an array - Perl
array maximum value
Snippet Code
Rate this page :
|
[ 0 votes]
|
#!/usr/bin/perl
print "content-type:text/htmlnn";
$val=maximum(60,20,100,400,800,230);
print "Maximum value == $valn";
sub maximum
{
my($maxfar) = shift @_;
foreach(@_)
{
if($_ >$maxfar)
{
$maxfar=$_;
}
}
return $maxfar;
}
