取数组最小值

#!/usr/bin/perl
sub min_of_nums{
my $min=shift @_;
foreach $num(@_){
if($min>$num){
$min=$num;
}
shift @_;
}
return $min;
}

$min=&min_of_nums(3,9,2,5);
print $min;

－－－－－－－－－－－－－－－－－－－－－－－－－
tiger506@darkstar:~/Program/Perl$ ./sub_05.pl
3
本文出自 “奋斗成就卓越” 博客，请务必保留此出处http://tiger506.blog.51cto.com/318536/1336166