在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; 如果改用List::Util模块提供的first@H_502_38@子程序，就要简单的多 use List::Util qw(first);my $match = first {/\bWendy\b/i} @names; #找到第一个Wendy即终止 如果换成数字的话，比如要求
【例02】求1到1000之间的和
常规做法:
use 5.010;my $total = 0;foreach (1..1000) { $total += $_;}say $total; #结果500500 如果改用List::Util模块提供的sum@H_502_38@子程序，同样很简单: use List::Util qw(sum);my $total = sum(1..1000); #结果500500
【例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 如果改用List::Util模块提供的max@H_502_38@子程序，则非常简单:
use List::Util qw(max);my $max = max(2,10);print $max; #结果为10
同样道理，使用List::Util模块提供的min@H_502_38@子程序，可求最小值:
use List::Util qw(min);my $min = min(2,10); #最小值为2【例04】对一组字符串进行排序
如果用常规方法的话，必须按顺序一个个进行比较，用List::Util的maxstr@H_502_38@子程序可以轻松实现:
use List::Util qw(maxstr);my $max_str = maxstr( qw/Jerry Betty Alice Fred barney jerry/ );print $max_str;【例05】对列表中的元素随机排序
如果用常规方法的话，很难实现，而用List::Util中的shuffle@H_502_38@子程序，则非常简单，一条命令搞定！
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】检查列表中是否没有某个元素，或者有任何元素，或者所有元素都符合条件。支持类似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:@H_502_38@ List::MoreUtils非自带的模块，需要下载. 【例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 BobGot Carly DavIDGot EDWard Foo 【例08】合并多个列表为一个列表 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;#输出结果:A=>1=>jerry=> B=>2=>alice=> C=>3=>wendy=> D=>4第1次: 第一个列表中取A，第二个列表中取出1，第三个列表中取出jerry
第2次: 第一个列表中取B,第二个列表中取出2，第三个列表中取出alice
......
依次类推！
【例09】往指定的字符串中加字符
可以用List::MoreUtils中的insert_after@H_502_38@子程序
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】对两个列表进行 *** 作，第一个列表平方后，和第二个列表求和 可以用List::MoreUtils中的pairwise@H_502_38@子程序
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 【总结】如果上面的方式用普通的方法实现，需要多次循环遍历，很麻烦，而将复杂的算法，数据结构用C来实现并封装在List模块中， 则可以实现很多看似复杂的功能，从中也可以看出Perl的强大之处在于CPAN，有众多的模块支撑！ 总结
以上是内存溢出为你收集整理的Perl中列用工具List模块全部内容，希望文章能够帮你解决Perl中列用工具List模块所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）