Perl List::Util模块使用实例(perl use warnings)速看

随心笔谈10个月前发布 admin
98 0



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

© 版权声明

相关文章