欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

Perl List::Util模块使用实例

程序员文章站 2022-03-14 21:23:40
在perl中有一些专门用于处理列表数据的模块,比如说list::util模块,该模块包含在标准库中,能提供各种高效的常见列表处理工具。因其用c语言来实现,速度一般都挺快!...

在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,有众多的模块支撑!