Perl中列表实用工具集的使用

List::Util 列表实用的工具集.

摘要:

use List::Util qw(first max maxstr min minstr reduce shuffle sum);

示例:
1:first
 返回列表中第一个满足条件的元素, 若不存在, 则返回undefined:如
 $fed = first  { defined($_) } @list; #list中第一个defined的元素
 $fed = first  { $ > 10} @list;    #list中第一个大于10的元素 
2:max/min
 返回列表中数值最大(最小)的元素, 若列表是空的,则返回undefined.
 $max_num = max @list;
 $max_num = max 1..100; # 返回100
 $min_num  = min 1..100;  # 返回1
3:maxstr/minstr
 与max类似, maxstr返回列表中最大/最小的字符串(即操作符gt/lt比较出的结果)
 $max_str = max qw(hello china japan);
4:shuffle
 以随机的方式返回列表元素.
 @card = shuffle 1..52;
5:sum
 返回列表中所有元素的和, 若列表为空, 则返回undefined.
 $sum = sum @list;
 $sum = sum 1..10; # 返回55