perl取数组中最值
my @a=(11,22,33,44);my $minCnt = &min(@a);
sub max # 采用遍历算法。先将参数中的第一个值赋给$currentMaxCnt。 # @_ 是默认的包含本函数所有参数 [如(11,22,33)]的数组。
# shift @_ 有两个结果: 1. 将数组 @_ 中的第一个值做为返回值(赋给了$currentMaxCnt). 2.将@_数组第一个值弹出[此后@_的值变为(22,33)].my $currentMaxCnt = shift@_;# 函数中使用shift时，@_可以省略。上面代码也可以写成这样。# my $currentMaxCnt =shift;
# 遍历整个@_数组。
foreach ( @_ )
{ # $_表示数组@_中当前被遍历到的元素.
if ( $_ > $currentMaxCnt )
{ # 如果发现当前数组元素比$currentMaxCnt大，那就将$currentMaxCnt重新赋值为当前元素。
$currentMaxCnt = $_;
}} #函数返回值为标量 $currentMaxCnt.
return $currentMaxCnt;
} print $maxCnt
输出最小值：
my @a=(11,22,33,44);
my $minCnt = &min(@a);
sub min {my$currentMinCnt = shift @_;
foreach ( @_ )
{if ( $_ < $currentMinCnt )
{
$currentMinCnt = $_;
}
}
return $currentMinCnt;
}
print$minCnt
或是：
use List::Util qw(first max maxstr min minstr reduce shuffle sum);
页:
[1]