7个perl数组高级操作技巧分享

 更新时间:2014年11月24日 10:31:54   投稿:junjie   我要评论

这篇文章主要介绍了7个perl数组高级操作技巧,本文讲解了数组去重、数组合并、查找最大值、列表归并等内容,需要的朋友可以参考下

1、去除一个数组中的重复元素:

使用grep函数代码片段:
代码:

复制代码 代码如下:

my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %count;
my @uniq_times = grep { ++$count{ $_ } < 2; } @array;

使用转换hash代码片段:
代码:

复制代码 代码如下:

my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %saw;
@saw{ @array } = ( );
my @uniq_array = sort keys %saw;

2、合并两个array:

复制代码 代码如下:

push @array1, @array2;

3、快速查找最大值,不知道的程序猿们,这样搞:

复制代码 代码如下:

my @nums = 0 .. 1000;
my $max = $nums[0];
foreach (@nums) {
$max = $_ if $_ > $max;
}

知道的这样搞:
复制代码 代码如下:

use List::Util qw(max);
my $max_num = max( 0 .. 1000 );

知道的他们还这样搞:
复制代码 代码如下:

use List::Util qw(maxstr);
my $max_str = maxstr ( qw( Fido Spot Rover ) );

字符串比较玩弄于掌中。还有sum:
复制代码 代码如下:

use List::Util qw(sum);
my $sum = sum ( 1 .. 1000 );

4、列表归并

数字求和,也可以用List::Util中的reduce:

复制代码 代码如下:

use List::Util qw(reduce);
my $sum = reduce { $a + $b } 1 .. 1000;

与sort类似,reduce也是用code block作为参数,不过运行机制稍微不同。每次迭代,先从参数列表取出前面两个元素,分别设置为别名$a和$b,这样参数列表的长度就会缩短为两个元素。然后reduce把语句块返回的计算结果再压回到参数列表的头部。如此往复,直到最后列表里只剩下一个元素,也就是迭代的计算结果$sum。

好了,可以这样了:

复制代码 代码如下:

my $product = reduce { $a * $b } 1 .. 1000;

5、判断是否有元素匹配

纯粹用Perl实现,找到列表中第一个符合某条件的元素,比找出所有符合条件的要麻烦一些。下面的例子,判断是否有大于1000的元素:

复制代码 代码如下:

my $found_a_match = grep { $_ > 1000 } @list;

注意:如果@list有一亿个元素,而要找的就是1001?grep仍然还会循环一亿次,当然你可以向下面自己控制下:
复制代码 代码如下:

my $found_a_match = 0;
foreach my $elem (@list) {
$found_a_match = $elem if $elem > 1000;
last if $found_a_match;
}

还是那句话,不简单~~~List::Util有现成的东西:
复制代码 代码如下:

use List::Util qw(first);
my $found_a_match = fist { $_ > 1000 } @list;

在List::MoreUtils模块中,也提供很多的实用函数:
复制代码 代码如下:

my $found_a_match = any { $_ > 1000 } @list;
my $all_greater = all { $_ > 1000 } @list;
my $none_greater = none { $_ > 1000 } @list;
my $all_greater = notall { $_ % 2 } @list;

6、一次遍历多个列表

一般我们同时遍历多个业务相关的列表时,往往用数组下标遍历:

复制代码 代码如下:

my @a = ( ... );
my @b = ( ... );
my @c;

foreach my $i ( 0 .. $#list ) {
my ( $a, $b ) = ( $a[$i], $b[$i] );
push @c, $a + $b;
}


看下面这个,你的感觉是?
复制代码 代码如下:

use List::MoreUtils qw(pairwise);
my @c = pairwise { $a + $b } @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正则表达式实例详解

    正则表达式是Perl语言的特色,基本的语法不是很难,但是编写一个符合需求、高效的正则表达式,还是有一些挑战的。下面这篇文章主要给大家介绍了关于强大的Perl正则表达式的相关资料,需要的朋友可以参考借鉴,下面来一起看看吧。
    2017-11-11
  • Perl中的控制结构学习笔记

    Perl中的控制结构学习笔记

    这篇文章主要介绍了Perl中的控制结构学习笔记,本文讲解了条件语句if、条件语句unless、循环语句while、循环语句until、for循环、foreach语句、循环控制等内容,需要的朋友可以参考下
    2014-11-11
  • perl几个文件操作例子

    perl几个文件操作例子

    这篇文章主要介绍了perl几个文件操作例子,讲解了删除文件、读取文件、一次性读取等,需要的朋友可以参考下
    2014-06-06
  • 使用perl实现拆分数据表(mysql)并迁移数据实例

    使用perl实现拆分数据表(mysql)并迁移数据实例

    这篇文章主要介绍了使用perl实现拆分数据表(mysql)并迁移数据实例,本文提供了3个脚本,分别用于拆分数据表、迁移数据、插入测试数据,需要的朋友可以参考下
    2014-10-10
  • 用python下载百度文库的代码

    用python下载百度文库的代码

    一个用python下载百度文库的代码,需要的同志请修改,下面有提示
    2012-08-08
  • Perl学习笔记之CPAN使用介绍

    Perl学习笔记之CPAN使用介绍

    这篇文章主要介绍了Perl学习笔记之CPAN使用介绍,本文讲解了什么是CPAN、CPAN的目录作用介绍、CPAN安装Perl Module的两种方法等内容,需要的朋友可以参考下
    2015-06-06
  • 使用Perl生成随机密码

    使用Perl生成随机密码

    本文给大家分享的是使用perl生成随机密码的方法示例,而且可以通过参数来控制密码中包含的字符种类,非常的不错,有需要的小伙伴可以参考下
    2016-06-06
  • python批量下载壁纸的实现代码

    python批量下载壁纸的实现代码

    壁纸来自桌酷网站,所有权归属其网站,本代码仅做为交流学习使用,请勿用于商业用途,否则后果自负
    2012-08-08
  • python urllib中的编码处理示例

    python urllib中的编码处理示例

    这篇文章主要介绍了python urllib中的编码处理示例,本文直接给出几个处理实例,需要的朋友可以参考下
    2015-04-04
  • cpan安装Net::SSH::Perl中遇到的一些问题

    cpan安装Net::SSH::Perl中遇到的一些问题

    cpan安装Net::SSH::Perl中遇到的一些问题,需要的朋友可以参考下
    2013-02-02

最新评论