本节内容:
几个经典的perl数组实例。
例1,去除一个数组中的重复元素:
使用grep函数代码片段:
使用转换hash代码片段:
例2,合并两个array:
例3,快速查找最大值:
不知道的这样搞:
知道的这样搞:
知道的还这样搞:
还有sum:
例4,列表归并
数字求和,也可以用List::Util中的reduce:
与sort类似,reduce也是用code block作为参数,不过运行机制稍微不同。
每次迭代,先从参数列表取出前面两个元素,分别设置为别名$a和$b,这样参数列表的长度就会缩短为两个元素。
然后,reduce把语句块返回的计算结果再压回到参数列表的头部。
如此往复,直到最后列表里只剩下一个元素,也就是迭代的计算结果$sum。
如此,可以这样:
例5,判断是否有元素匹配
纯粹用Perl实现,找到列表中第一个符合某条件的元素,比找出所有符合条件的要麻烦一些。
例子,判断是否有大于1000的元素:
注意:如果@list有一亿个元素,而要找的就是1001?grep仍然还会循环一亿次,当然可以参考以下自己控制:
不过List::Util有现成的东西:
在List::MoreUtils模块中,提供很多的实用函数:
例6,一次遍历多个列表
一般同时遍历多个业务相关的列表时,往往用数组下标遍历:
my @a = ( ... );
my @b = ( ... );
my @c;
foreach my $i ( 0 .. $#list ) {
my ( $a, $b ) = ( $a[$i], $b[$i] );
push @c, $a + $b;
}
再看如下的例子:
pairwise只适合两个列表的同步计算,三个后用each_array:
use List::MoreUtils qw(each_array);
my $ea = each_array( @a, @b, @c );
my @d;
while ( my ( $a, $b, $c ) = $ea->() ) {
push @d, $a+$b+$c;
}
例7,数组合并
合并多个数组的操作,使用MoreUtils的mesh很方便:
use List::MoreUtils qw(mesh);
my @odds = qw/ 1 3 5 7 9/;
my @evens= qw/ 2 4 6 8 0/;
my @nums = mesh @odds, @evens; # print: 1 2 3 4 ...
有关perl编程中数组的一些实例,就介绍到这了,希望读过此文后,大家对perl数组的掌握会更上一个台阶。