some-usable-scripts/perl/max.pl

17 lines
154 B
Perl
Raw Normal View History

2011-02-03 13:47:29 +01:00
#!/usr/bin/perl -w
sub max{
my $max_actuel = shift @_ ;
foreach my $e (@_)
{
if ($e > $max_actuel)
{
$max_actuel = $e;
}
}
return $max_actuel;
}