perl取数组中最值的例子

#!/bin/perl
#site: www.jb200.com
#
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
 

#!/bin/perl
#edit: wwwjb200.com
#
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);