1 sub min { 2 local $min = shift; 3 for (@_) { 4 $min = $_ if $_ < $min; 5 } 6 7 return $min; 8 } 9 10 sub max { 11 local $max = shift; 12 for (@_) { 13 $max = $_ if $_ > $min; 14 } 15 16 return $max; 17 }
原文：http://www.cnblogs.com/jt2001/p/perl-min-max.html