如何检查整数列表中是否有任何整数在数组中

如何检查整数列表中是否有任何整数在数组中

本文介绍了Perl:如何检查整数列表中是否有任何整数在数组中的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

类似于我之前的问题,但是这次我想知道整数列表中是否有任何整数在数组中。

Similar to my earlier question, but this time I would like to know if any integers in a list of integers are in an array.

例如,如果我有:

@int_array = (7,101,80,22,42);

如何检查整数值80、77或99是否在数组中?有没有比对列表中的每个整数单独进行智能匹配更好的方法?我正在使用Perl 5.10.1

How can I check if the integer value 80 or 77 or 99 is in the array? Is there a better way than just doing a separate smartmatch for each integer in the list? I'm using Perl 5.10.1

推荐答案

#!/usr/bin/env perl
use warnings;
use 5.012;

my @array = (7,101,80,22,42);
my @items = (77,81,99);
my $it = join '|', @items;
my $re = qr/^(?:$it)\z/;
say $re ~~ @array ? 'OK' : 'Not OK';

这篇关于Perl:如何检查整数列表中是否有任何整数在数组中的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!

08-15 17:55