Perl中列用工具List模块

在Perl中有一些专门用于处理列表数据的模块，比如说List::Util模块，其包含在标准库中，能提供各种高效的常见列表处理工具。因其用C语言实现，速度一般都挺快！

【例1】扫描符合条件的某个列表，并取出第一个符合条件的，常规写法:

use 5.010;
my @names  = qw(Wendy Jerry Betty Wendy Alice);
foreach  (@names) {
	if (/\bWendy\b/i) {
		$match = $_;
		last;
	}
}
say $match;     

use List::Util qw(first);
my $match = first {/\bWendy\b/i} @names;  #找到第一个Wendy即终止

use 5.010;
my $total = 0;
foreach (1..1000) {
	$total += $_;
}
say $total;               #结果500500

use List::Util qw(sum);
my $total = sum(1..1000); #结果500500

#! /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的maxstr子程序可以轻松实现:

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

如果用常规方法的话，很难实现，而用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 

如果用常规方法的话，很难实现，而用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";}

【例7】同时处理多个姓名列表，每次取出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

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

第2次: 第一个列表中取B, 第二个列表中取出2，第三个列表中取出alice

......

依次类推！

【总结】
如果上面的方式用普通的方法实现，需要多次循环遍历，很麻烦，而将复杂的算法，数据结构用C来实现并封装在List模块中，则可以实现很多看似复杂的功能，从中也可以看出Perl的强大之处在于CPAN，有众多的模块支撑！

Perl中列用工具List模块

原文：http://blog.csdn.net/jerry_1126/article/details/43165009