perl两个模块： List::Util和List::MoreUtils

以下这些函数来自于 List::Util 模块，这是 Perl 内置的模块，下面的内容参考了：http://bnuzhutao.cn/archives/788，表示感谢！

（1）求数组的和：不需要一个一个地累加，直接调用 sum 函数

use?List::Util?qw/sum/;
my?@array?=?(10,?203040);
$sum?=?sum?@array;???????# 得到 100

（2）求数组的最大、最小值：不需要逐个比较，直接调用 max 和 min 函数

qw/max min/;
-16258);
$max?max?@array;???????????# 得到 25
$min?min?# 得到 -1

（3）如果是按照字符串排列的最大、最小值呢？调用 maxstr 和 minstr 函数

qw/maxstr minstr/;
=?("Beijing""Shanghai""Guangzhou""Chengdu""Nanjing");
$maxstr?maxstr?@array;?????# 得到 Shanghai
$minstr?minstr?# 得到 Beijing

还有一个不得不说的秘密：这些函数都是经过 C 优化的，所以执行速度不但不会慢，反而非常快！