您的位置：首页 > 编程技术 > Perl  >  Perl List::Util模块使用实例

Perl List::Util模块使用实例

 更新时间：2020年6月29日 13:42  点击：1842

在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子程序，就要简单的多
复制代码 代码如下:

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子程序，同样很简单:
复制代码 代码如下:

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子程序，则非常简单:
复制代码 代码如下:

use List::Util qw(max); 
my $max = max(2, 3, 8, 5, 10); 
print $max;                 #结果为10 

同样道理，使用List::Util模块提供的min子程序，可求最小值:
复制代码 代码如下:

use List::Util qw(min); 
my $min = min(2, 3, 8, 5, 10);  #最小值为2 

【例04】对一组字符串进行排序
如果用常规方法的话，必须按顺序一个个进行比较，用List::Util的maxstr子程序可以轻松实现:
复制代码 代码如下:

use List::Util qw(maxstr); 
my  $max_str = maxstr( qw/Jerry Betty Alice Fred Barney jerry/ ); 
print $max_str; 

【例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  

【例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非自带的模块，需要下载.

【例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 

【例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子程序

复制代码 代码如下:

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子程序
复制代码 代码如下:

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，有众多的模块支撑！

[!--infotagslink--]

相关文章

  • Java8 实现stream将对象集合list中抽取属性集合转化为map或list

    这篇文章主要介绍了Java8 实现stream将对象集合list中抽取属性集合转化为map或list的操作，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧...2021-02-05

  • java8如何用Stream查List对象某属性是否有重复

    这篇文章主要介绍了java8如何用Stream查List对象某属性是否有重复的操作，具有很好的参考价值，希望对大家有所帮助。如有错误或未考虑完全的地方，望不吝赐教...2021-09-11

  • 在java中获取List集合中最大的日期时间操作

    这篇文章主要介绍了在java中获取List集合中最大的日期时间操作，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧...2020-08-15

  • C#中list用法实例

    这篇文章主要介绍了C#中list用法,结合实例形式分析了C#中list排序、运算、转换等常见操作技巧,具有一定参考借鉴价值,需要的朋友可以参考下...2020-06-25

  • Java8处理List的双层循环问题

    这篇文章主要介绍了Java8处理List的双层循环问题，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧...2020-08-19

  • C# List 排序各种用法与比较

    这篇文章主要介绍了C# List 排序各种用法与比较的相关资料,需要的朋友可以参考下...2020-06-25

  • 使用list stream: 任意对象List拼接字符串

    这篇文章主要介绍了使用list stream:任意对象List拼接字符串操作，具有很好的参考价值，希望对大家有所帮助。如有错误或未考虑完全的地方，望不吝赐教...2021-09-09

  • C# List介绍及具体用法

    这篇文章主要介绍了C# List介绍及具体用法，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧...2020-06-25

  • Java List集合返回值去掉中括号('[ ]')的操作

    这篇文章主要介绍了Java List集合返回值去掉中括号('[ ]')的操作，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧...2020-08-29

  • R语言-如何将list转换为向量

    这篇文章主要介绍了R语言-将list转换为向量的操作，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧...2021-05-06

  • Python 列表(List)的底层实现原理分析

    这篇文章主要介绍了Python 列表(List)的底层实现原理分析，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧...2021-03-09

  • Python运行提示缺少模块问题解决方案

    这篇文章主要介绍了Python运行提示缺少模块问题解决方案,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下...2020-05-10

  • C#中数组、ArrayList、List、Dictionary的用法与区别浅析(存取数据)

    在工作中经常遇到C#数组、ArrayList、List、Dictionary存取数据，但是该选择哪种类型进行存储数据呢？很迷茫，今天小编抽空给大家整理下这方面的内容，需要的朋友参考下吧...2020-06-25

  • Perl模块编写说明

    这两天在用Perl编写一些监控脚本，其实写代码也是一件挺有意思的事情，就是挺废时间的。而且，由于语法不太熟，基本想到一个东西都要先Google一下看怎么实现。...2020-06-29

  • C#中实现任意List的全组合算法代码

    这篇文章主要是介绍了.net C# 实现任意List的全组合算法实现代码，需要的朋友可以参考下...2020-06-25

  • C#中List和数组之间转换的方法

    这篇文章主要介绍了C#中List和数组之间转换的方法,涉及比较简单的转换技巧,需要的朋友可以参考下...2020-06-25

  • perl 模式匹配参数详解

    一、简介 模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。其用法如结合函数split将字符串用某模式分成多个单词：@array = split(/ /, $line);二、匹配...2020-06-29

  • Perl与JS的对比分析(数组、哈希)

    下面小编就为大家带来一篇Perl与JS的对比分析(数组、哈希)。小编觉得挺不错的，现在就分享给大家，也给大家做个参考。一起跟随小编过来看看吧...2020-06-29

  • Python PyPDF2模块安装使用解析

    这篇文章主要介绍了Python PyPDF2模块安装使用解析,文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值,需要的朋友可以参考下...2020-04-22

  • 解决java.util.NoSuchElementException异常的问题

    这篇文章主要介绍了解决java.util.NoSuchElementException异常的问题，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧...2020-09-28