#!/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
本文转自 tiger506 51CTO博客，原文链接：http://blog.51cto.com/tiger506/1336166，如需转载请自行联系原作者
