Perl: Хороший способ проверить, есть ли значение в массиве?

Question

Если у меня есть массив:

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

Как я могу проверить, если целое значение 80 в массиве без зацикливания через каждый элемент?

Answer 1

Вы не можете без зацикливания. Это часть того, что означает быть массивом. Вы можете использовать неявный цикл, используя grep или smartmatch, но есть еще цикл. Если вы хотите избежать цикла, используйте вместо него хеш (или дополнительно).

# grep 
if (grep $_ == 80, @int_array) ... 

# smartmatch 
use 5.010001; 
if (80 ~~ @int_array) ... 

Перед использованием smartmatch, обратите внимание:

http://search.cpan.org/dist/perl-5.18.0/pod/perldelta.pod#The_smartmatch_family_of_features_are_now_experimental:

smartmatch семейство функций теперь экспериментальной

Смарт матч, добавил в v5.10.0 и существенно переработан в п.5.10.1, является регулярной жалобой. Хотя есть несколько способов, в которых это полезно, он также оказался проблематичным и запутанным как для пользователей, так и для разработчиков Perl. Был предложен ряд предложений о том, как наилучшим образом решить эту проблему. Понятно, что smartmatch почти наверняка либо изменится, либо уйдет в будущем. Опираясь на его текущее поведение не рекомендуется.

Предупреждения будут выдаваться, когда парсер увидит ~~, данный или когда. Чтобы отключить эти предупреждения, вы можете добавить эту строку в соответствующую область

Answer 2

if (grep /^80$/, @int_array) { 
    ... 
} 

Answer 3

Если вы используете Perl 5.10 или более поздней версии, вы можете использовать smart match оператор ~~:

my $found = (80 ~~ $in_array); 

Answer 4

CPAN решение: использовать List::MoreUtils

use List::MoreUtils qw{any}; 
print "found!\n" if any { $_ == 7 } (7,101,80,22,42); 

Если вам нужно сделать МНОГИЕ МНОЖЕСТВА поиска в том же массиве, более эффективным способом является сохранение массива в хэше однажды и поиск в хеше :

@int_array{@int_array} = 1; 
foreach my $lookup_value (@lookup_values) { 
    print "found $lookup_value\n" if exists $int_array{$lookup_value} 
} 

Зачем использовать это решение по альтернативам?

• Нельзя использовать интеллектуальный матч в Perl до 5.10. Согласно этому сообщению SO by brian d foy] 2, умное совпадение короткое замыкание, поэтому оно так же хорошо, как «любое» решение для 5.10.

• grep решение проходит через весь список, даже если первый элемент из 1 000 000 длинного списка совпадает. any будет замыкаться на короткое замыкание и выйти из момента, когда будет найдено первое совпадение, тем самым он будет более эффективным. Оригинальный плакат явно сказал «без прокрутки по каждому элементу»

• Если вам нужно выполнить LOTs lookups, одноразовая стоимость создания хэша делает метод поиска хэша более эффективным, чем любой другой.См this SO post for details

Answer 5

Еще один способ проверить числа в массиве:

#!/usr/bin/env perl 

use strict; 
use warnings; 

use List::Util 'first'; 

my @int_array  = qw(7 101 80 22 42); 
my $number_to_check = 80; 

if (first { $_ == $number_to_check } @int_array) { 
    print "$number_to_check exists in ", join ', ', @int_array; 
} 

См List::Util.