请选择 进入手机版 | 继续访问电脑版

Perl List::Util模块使用实例

[复制链接]
查看782 | 回复0 | 2020-7-16 08:14:17 | 显示全部楼层 |阅读模式
在Perl中有一些专门用于处理列表数据的模块,比如说List::Util模块,该模块包含在标准库中,能提供各种高效的常见列表处理工具。因其用C语言来实现,速度一般都挺快!
【例01】扫描符合条件的某个列表,并取出第一个符合条件的
常规做法:
  1. use 5.010;  
  2. my @names  = qw(Wendy Jerry Betty Wendy Alice);  
  3. foreach  (@names) {  
  4.     if (/\bWendy\b/i) {  
  5.         $match = $_;  
  6.         last;  
  7.     }  
  8. }  
  9. say $match;      
复制代码
如果改用List::Util模块提供的first子程序,就要简单的多
  1. use List::Util qw(first);  
  2. my $match = first {/\bWendy\b/i} @names;  #找到第一个Wendy即终止  
  3. 如果换成数字的话,比如要求
复制代码
【例02】求1到1000之间的和
常规做法:
  1. use 5.010;  
  2. my $total = 0;  
  3. foreach (1..1000) {  
  4.     $total += $_;  
  5. }  
  6. say $total;               #结果500500  
复制代码
如果改用List::Util模块提供的sum子程序,同样很简单:
  1. use List::Util qw(sum);  
  2. my $total = sum(1..1000); #结果500500  
复制代码
【例03】求一组数字的最大值与最小值.
常规做法:
  1. #! /usr/bin/perl;   
  2. use utf8;   
  3.    
  4. sub max {   
  5.    my($max_so_far) = shift @_; #数组中第一个值,暂时当成最大值。   
  6.    foreach(@_){                #遍历数组@_   
  7.    if($_>$max_so_far){         #看其它元素是否有比$max_so_far大的值。   
  8.     $max_so_far = $_;}         #如果有话,更新最大值变量   
  9.    }   
  10.    $max_so_far;   
  11. }   
  12.    
  13. my $_MaxData = &max(2,3,8,5,10);   
  14. print $_MaxData;               #结果为10  
复制代码
如果改用List::Util模块提供的max子程序,则非常简单:
  1. use List::Util qw(max);  
  2. my $max = max(2, 3, 8, 5, 10);  
  3. print $max;                 #结果为10  
复制代码
同样道理,使用List::Util模块提供的min子程序,可求最小值:
  1. use List::Util qw(min);  
  2. my $min = min(2, 3, 8, 5, 10);  #最小值为2  
复制代码
【例04】对一组字符串进行排序
如果用常规方法的话,必须按顺序一个个进行比较,用List::Util的maxstr子程序可以轻松实现:
  1. use List::Util qw(maxstr);  
  2. my  $max_str = maxstr( qw/Jerry Betty Alice Fred Barney jerry/ );  
  3. print $max_str;  
复制代码
【例05】对列表中的元素随机排序
如果用常规方法的话,很难实现,而用List::Util中的shuffle子程序,则非常简单,一条命令搞定!
  1. use List::Util qw(shuffle);  
  2. my @shuffled_nums = shuffle(1..10);   # 3 9 8 5 6 4 1 10 2 7                  
  3. my @shuffled_name = shuffle('A'..'G');# F E G A B D   
复制代码
【例06】检查列表中是否没有某个元素,或者有任何元素,或者所有元素都符合条件。支持类似grep语法
如果用常规方法的话,很难实现,而用List::MoreUtils同样很容易实现,代码如下:
  1. use List::MoreUtils qw(none any all);  
  2. my @numbers = qw(7 4 1 3 78);  
  3. if (none {$_ > 100} @numbers) {print "No elements over 100\n"; }   
  4. elsif (any {$_ > 50}@numbers) {print "Some elements over 50\n";}  
  5. elsif (all {$_ <10} @numbers) {print "All elements < 10\n";}  
  6. NOTE: List::MoreUtils非自带的模块,需要下载.
复制代码
【例07】同时处理多个姓名列表,每次取出2位
  1. use List::MoreUtils qw(natatime);   
  2. my @names_1 = qw(Alice Bob Carly);  
  3. my @names_2 = qw(David Edward Foo);  
  4. my $names   = natatime(2, @names_1, @names_2);  #natatim (N at a time:同时处理N组)有多个列表的话往里面放就好了  
  5. while (my @name = $names->()) {                 #遍历,方便后面输出  
  6.     print "Got @name\n";  
  7. }  
  8. #输出结果  
  9. Got Alice Bob  
  10. Got Carly David  
  11. Got Edward Foo  
复制代码
【例08】合并多个列表为一个列表
  1. use List::MoreUtils qw(mesh);  
  2. my @array_1 = 'A' .. 'D';  
  3. my @array_2 = 1 .. 4;  
  4. my @array_3 = qw( jerry alice wendy );  
  5. my @array_new = mesh(@array_1, @array_2, @array_3);  
  6. print @array_new;  
  7. #输出结果:  
  8. A=>1=>jerry=> B=>2=>alice=> C=>3=>wendy=> D=>4
复制代码
第1次: 第一个列表中取A,第二个列表中取出1,第三个列表中取出jerry
第2次: 第一个列表中取B, 第二个列表中取出2,第三个列表中取出alice
......
依次类推!
【例09】往指定的字符串中加字符
可以用List::MoreUtils中的insert_after子程序
  1. use v5.10;  
  2. use List::MoreUtils qw(:all);  
  3.   
  4. my @list = qw/This is a list/;  
  5. insert_after {$_ eq 'a'} "longer" => @list;  
  6. print @list;  #This is a longer list
复制代码
【例10】对两个列表进行操作,第一个列表平方后,和第二个列表求和
可以用List::MoreUtils中的pairwise子程序
  1. use v5.10;  
  2. use List::MoreUtils qw(:all);  
  3.   
  4. @m = (1..4);  
  5. @n = (100..103);  
  6. @x = pairwise { ($a*$a) + $b } @m, @n;  #101 105 111 119  
复制代码
【总结】
如果上面的方式用普通的方法实现,需要多次循环遍历,很麻烦,而将复杂的算法,数据结构用C来实现并封装在List模块中,则可以实现很多看似复杂的功能,从中也可以看出Perl的强大之处在于CPAN,有众多的模块支撑!

买目录提供泛目录、二级目录、租目录、出租网站建设资源、编程学习类,提供asp、php、asp.net、javascript、jquery、vbscript、dos批处理、网页制作、网络编程、网站建设等编程资料。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则