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 }

 

版权声明：本文为jt2001原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/jt2001/articles/perl-min-max.html