在Perl中有一些專(zhuān)門(mén)用于處理列表數(shù)據(jù)的模塊，比如說(shuō)List::Util模塊，該模塊包含在標(biāo)準(zhǔn)庫(kù)中，能提供各種高效的常見(jiàn)列表處理工具。因其用C語(yǔ)言來(lái)實(shí)現(xiàn)，速度一般都挺快！
【例01】掃描符合條件的某個(gè)列表，并取出第一個(gè)符合條件的
常規(guī)做法:
復(fù)制代碼 代碼如下:
use 5.010;
my @names = qw(Wendy Jerry Betty Wendy Alice);
foreach (@names) {
if (/\bWendy\b/i) {
$match = $_;
last;
}
}
say $match;
如果改用List::Util模塊提供的first子程序，就要簡(jiǎn)單的多
復(fù)制代碼 代碼如下:
use List::Util qw(first);
my $match = first {/\bWendy\b/i} @names; #找到第一個(gè)Wendy即終止
如果換成數(shù)字的話，比如要求
【例02】求1到1000之間的和
常規(guī)做法:
復(fù)制代碼 代碼如下:
use 5.010;
my $total = 0;
foreach (1..1000) {
$total += $_;
}
say $total; #結(jié)果500500
如果改用List::Util模塊提供的sum子程序，同樣很簡(jiǎn)單:
復(fù)制代碼 代碼如下:
use List::Util qw(sum);
my $total = sum(1..1000); #結(jié)果500500
【例03】求一組數(shù)字的最大值與最小值.
常規(guī)做法:
復(fù)制代碼 代碼如下:
#! /usr/bin/perl;
use utf8;
sub max {
my($max_so_far) = shift @_; #數(shù)組中第一個(gè)值，暫時(shí)當(dāng)成最大值。
foreach(@_){ #遍歷數(shù)組@_
if($_>$max_so_far){ #看其它元素是否有比$max_so_far大的值。
$max_so_far = $_;} #如果有話，更新最大值變量
}
$max_so_far;
}
my $_MaxData = max(2,3,8,5,10);
print $_MaxData; #結(jié)果為10
如果改用List::Util模塊提供的max子程序，則非常簡(jiǎn)單:
復(fù)制代碼 代碼如下:
use List::Util qw(max);
my $max = max(2, 3, 8, 5, 10);
print $max; #結(jié)果為10
同樣道理，使用List::Util模塊提供的min子程序，可求最小值:
復(fù)制代碼 代碼如下:
use List::Util qw(min);
my $min = min(2, 3, 8, 5, 10); #最小值為2
【例04】對(duì)一組字符串進(jìn)行排序
如果用常規(guī)方法的話，必須按順序一個(gè)個(gè)進(jìn)行比較，用List::Util的maxstr子程序可以輕松實(shí)現(xiàn):
復(fù)制代碼 代碼如下:
use List::Util qw(maxstr);
my $max_str = maxstr( qw/Jerry Betty Alice Fred Barney jerry/ );
print $max_str;
【例05】對(duì)列表中的元素隨機(jī)排序
如果用常規(guī)方法的話，很難實(shí)現(xiàn)，而用List::Util中的shuffle子程序，則非常簡(jiǎn)單，一條命令搞定！
復(fù)制代碼 代碼如下:
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
【例06】檢查列表中是否沒(méi)有某個(gè)元素，或者有任何元素，或者所有元素都符合條件。支持類(lèi)似grep語(yǔ)法
如果用常規(guī)方法的話，很難實(shí)現(xiàn)，而用List::MoreUtils同樣很容易實(shí)現(xiàn)，代碼如下:
復(fù)制代碼 代碼如下:
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非自帶的模塊，需要下載.
【例07】同時(shí)處理多個(gè)姓名列表，每次取出2位
復(fù)制代碼 代碼如下:
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:同時(shí)處理N組)有多個(gè)列表的話往里面放就好了
while (my @name = $names->()) { #遍歷，方便后面輸出
print "Got @name\n";
}
#輸出結(jié)果
Got Alice Bob
Got Carly David
Got Edward Foo
【例08】合并多個(gè)列表為一個(gè)列表
復(fù)制代碼 代碼如下:
use List::MoreUtils qw(mesh);
my @array_1 = 'A' .. 'D';
my @array_2 = 1 .. 4;
my @array_3 = qw( jerry alice wendy );
my @array_new = mesh(@array_1, @array_2, @array_3);
print @array_new;
#輸出結(jié)果:
A=>1=>jerry=> B=>2=>alice=> C=>3=>wendy=> D=>4
第1次: 第一個(gè)列表中取A，第二個(gè)列表中取出1，第三個(gè)列表中取出jerry
第2次: 第一個(gè)列表中取B, 第二個(gè)列表中取出2，第三個(gè)列表中取出alice
......
依次類(lèi)推！
【例09】往指定的字符串中加字符
可以用List::MoreUtils中的insert_after子程序
復(fù)制代碼 代碼如下:
use v5.10;
use List::MoreUtils qw(:all);
my @list = qw/This is a list/;
insert_after {$_ eq 'a'} "longer" => @list;
print @list; #This is a longer list
【例10】對(duì)兩個(gè)列表進(jìn)行操作，第一個(gè)列表平方后，和第二個(gè)列表求和
可以用List::MoreUtils中的pairwise子程序
復(fù)制代碼 代碼如下:
use v5.10;
use List::MoreUtils qw(:all);
@m = (1..4);
@n = (100..103);
@x = pairwise { ($a*$a) + $b } @m, @n; #101 105 111 119
【總結(jié)】
如果上面的方式用普通的方法實(shí)現(xiàn)，需要多次循環(huán)遍歷，很麻煩，而將復(fù)雜的算法，數(shù)據(jù)結(jié)構(gòu)用C來(lái)實(shí)現(xiàn)并封裝在List模塊中，則可以實(shí)現(xiàn)很多看似復(fù)雜的功能，從中也可以看出Perl的強(qiáng)大之處在于CPAN，有眾多的模塊支撐！
