个人中心
gpt4 book ai didi

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

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 25 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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 ... 。

  。

最后此篇关于7个perl数组高级操作技巧分享的文章就讲到这里了,如果你想了解更多关于7个perl数组高级操作技巧分享的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

25 4 0
文章推荐： Windows Powershell 复制数组
文章推荐： Windows Powershell 访问数组
文章推荐： Perl中使用File::Lockfile确保脚本单实例运行
文章推荐： Perl脚本实现检测主机心跳信号功能
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com