在Perl中有一些专门用于处理列表数据的模块，比如说List::Util模块，该模块包含在标准库中，能提供各种高效的常见列表处理工具。因其用C语言来实现，速度一般都挺快！
【例01】扫描符合条件的某个列表，并取出第一个符合条件的
常规做法:
use 5.010;
my @names = qw(Wendy Jerry Betty Wendy Alice);
foreach (@names) {
if (/\bWendy\b/i) {
$match = $_;
last;
}
}
say $match;
</div>
如果改用List::Util模块提供的first子程序，就要简单的多
use List::Util qw(first);
my $match = first {/\bWendy\b/i} @names; #找到第一个Wendy即终止
如果换成数字的话，比如要求
</div>
【例02】求1到1000之间的和
常规做法:
use 5.010;
my $total = 0;
foreach (1..1000) {
$total += $_;
}
say $total; #结果500500
</div>
如果改用List::Util模块提供的sum子程序，同样很简单:
use List::Util qw(sum);
my $total = sum(1..1000); #结果500500
</div>
【例03】求一组数字的最大值与最小值.
常规做法:
#! /usr/bin/perl;
use utf8;
sub max {
my($max_so_far) = shift @_; #数组中第一个值，暂时当成最大值。
foreach(@_){ #遍历数组@_
if($_>$max_so_far){ #看其它元素是否有比$max_so_far大的值。
$max_so_far = $_;} #如果有话，更新最大值变量
}
$max_so_far;
}
my $_MaxData = &max(2,3,8,5,10);
print $_MaxData; #结果为10
</div>
如果改用List::Util模块提供的max子程序，则非常简单:
use List::Util qw(max);
my $max = max(2, 3, 8, 5, 10);
print $max; #结果为10
</div>
同样道理，使用List::Util模块提供的min子程序，可求最小值:
use List::Util qw(min);
my $min = min(2, 3, 8, 5, 10); #最小值为2
</div>
【例04】对一组字符串进行排序
如果用常规方法的话，必须按顺序一个个进行比较，用List::Util的maxstr子程序可以轻松实现:
use List::Util qw(maxstr);
my $max_str = maxstr( qw/Jerry Betty Alice Fred Barney jerry/ );
print $max_str;
</div>
【例05】对列表中的元素随机排序
如果用常规方法的话，很难实现，而用List::Util中的shuffle子程序，则非常简单，一条命令搞定！
use List::Util qw(shuffle);
my @shuffled_nums = shuffle(1..10); # 3 9 8 5 6 4 1 10 2 7
my @shuffled_name = shuffle('A'..'G');# F E G A B D
</div>
【例06】检查列表中是否没有某个元素，或者有任何元素，或者所有元素都符合条件。支持类似grep语法
如果用常规方法的话，很难实现，而用List::MoreUtils同样很容易实现，代码如下:
use List::MoreUtils qw(none any all);
my @numbers = qw(7 4 1 3 78);
if (none {$_ > 100} @numbers) {print "No elements over 100\n"; }
elsif (any {$_ > 50}@numbers) {print "Some elements over 50\n";}
elsif (all {$_ <10} @numbers) {print "All elements < 10\n";}
NOTE: List::MoreUtils非自带的模块，需要下载.
</div>
【例07】同时处理多个姓名列表，每次取出2位
use List::MoreUtils qw(natatime);
my @names_1 = qw(Alice Bob Carly);
my @names_2 = qw(David Edward Foo);
my $names = natatime(2, @names_1, @names_2); #natatim (N at a time:同时处理N组)有多个列表的话往里面放就好了
while (my @name = $names->()) { #遍历，方便后面输出
print "Got @name\n";
}
#输出结果
Got Alice Bob
Got Carly David
Got Edward Foo
</div>
【例08】合并多个列表为一个列表
use List::MoreUtils qw(mesh);