Perl: как проверить, есть ли в массиве целые числа в списке

Question

Аналогично моему предыдущему вопросу, но на этот раз я хотел бы знать, есть ли какие-либо целые числа в списке целых чисел в массиве.

Например, если у меня есть:

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

Как я могу проверить, находится ли целое значение 80 или 77 или 99 в массиве?Есть ли лучший способ, чем просто сделать отдельный smartmatch для каждого целого числа в списке?Я использую Perl 5.10.1

Answer 1

Я думаю, что лучший ответ здесь:

perldoc -q "How can I tell whether a certain element is contained in a list or array?"

http://perldoc.perl.org/perlfaq4.html#How-can-I-tell-whether-a-certain-element-is-contained-in-a-list-or-array%3f

Answer 2

#!/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';

Answer 3

вы можете превратить массив в хеш, поэтому вместо того, чтобы искать по всему списку каждый раз, когда вы хотите найти что-то, вы можете найти его немедленно.

Answer 4

есть также метод 'grep'

if (grep / $ num /, @array) {print "yerp! \ N";}

Answer 5

Самый простой способ - превратить массив int в хеш, где int - это ключ и значение.Тогда вы можете посмотреть прямо с if (exists($intHash{$iVal))