perl中写数组的最值

转载请注明出处：http://www.cnblogs.com/blueicely/category/437476.html

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);