Комментарии: Встроенные функции Perl. Работа с массивами https://dev-lab.info/2011/02/%d0%b2%d1%81%d1%82%d1%80%d0%be%d0%b5%d0%bd%d0%bd%d1%8b%d0%b5-%d1%84%d1%83%d0%bd%d0%ba%d1%86%d0%b8%d0%b8-perl-%d1%80%d0%b0%d0%b1%d0%be%d1%82%d0%b0-%d1%81-%d0%bc%d0%b0%d1%81%d1%81%d0%b8%d0%b2%d0%b0/ Mon, 21 Jul 2014 14:32:36 +0000 hourly 1 https://wordpress.org/?v=5.3.2 Автор: Natalie https://dev-lab.info/2011/02/%d0%b2%d1%81%d1%82%d1%80%d0%be%d0%b5%d0%bd%d0%bd%d1%8b%d0%b5-%d1%84%d1%83%d0%bd%d0%ba%d1%86%d0%b8%d0%b8-perl-%d1%80%d0%b0%d0%b1%d0%be%d1%82%d0%b0-%d1%81-%d0%bc%d0%b0%d1%81%d1%81%d0%b8%d0%b2%d0%b0/#comment-103223 Mon, 21 Jul 2014 14:32:36 +0000 https://dev-lab.info/?p=242#comment-103223 Либо, можно использовать grep, для поиска вхождения нужного элемента в массив:

if (my $found = grep $_ eq $item, @array) {
print "Ok";
}

]]> Автор: Natalie https://dev-lab.info/2011/02/%d0%b2%d1%81%d1%82%d1%80%d0%be%d0%b5%d0%bd%d0%bd%d1%8b%d0%b5-%d1%84%d1%83%d0%bd%d0%ba%d1%86%d0%b8%d0%b8-perl-%d1%80%d0%b0%d0%b1%d0%be%d1%82%d0%b0-%d1%81-%d0%bc%d0%b0%d1%81%d1%81%d0%b8%d0%b2%d0%b0/#comment-103222 Mon, 21 Jul 2014 14:31:11 +0000 https://dev-lab.info/?p=242#comment-103222 Начиная с 10ой версии perl, можно использовать оператор ~~ . Оператор, начиная с первого элемента и по порядку, обходит массив и останавливается, как только будет найден первый подходящий элемент.

if ( $item ~~ @array ) {
print "Ok";
}

]]>