Проверить конкретное значение не в массиве

Question

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

Я попытался как

if ($a ne ('value1' || 'value2') 

if (($a ne 'value1') || ($a ne 'value2')) 

Оба метода не работают. Кто-нибудь может помочь?

Answer 1

$ a не находится в массиве, если он отличается от первого элемента и он отличается от второго.

if ($x ne 'value1' and $x ne 'value2') { 

Для реального массива любого размера:

if (not grep $_ eq $x, @array) { 

(я использую $x вместо $a как $a особенный - см perlvar.)

Answer 2

if ($a ne ('value1' || 'value2') 

вычисляет

if ($a ne 'value1') 

и

if (($a ne 'value1') || ($a ne 'value2')) 

всегда TRUE.

Вы можете попробовать

if ($a ne 'value1' and $a ne 'value2') 

или

if (!grep{$a eq $_} 'value1', 'value2') 

Answer 3

Ваша переменная $a не оценивается как индекс в array без [INDEX], но рассматривалась как скаляр.

Два значения array:

$array[0] = "X"; $array[1] = "Y";

или

@array = qw/X Y/;

Проверка состояния с использованием if:

if ($array[0] ne "Your-String" || $array[1] ne "Your-String")

Answer 4

Вы также можете использовать смарт-оператор матча:

не

если ($ х ~~ [ 'значению1', 'value2'])

Answer 5

Опираясь на smartmatch раствора @Dilbertino (хороший ник) с помощью match::simple по @tobyink, чтобы облегчить боль smartmatch уезжает (я пропускаю это уже):

use match::simple; 
my @array = qw(abcd.txt abcdeff.txt abcdweff.txt abcdefrgt.txt); 
my $x="abcd.txt" ; 
say "it's there" if ($x |M| \@array); 

|M| оператор из match::simple может быть заменен match функцией, немного ускоряется (реализовано с помощью XS):

use match::simple qw(match); 
my @array = qw(abcd.txt abcdeff.txt abcdweff.txt abcdefrgt.txt); 
my $x="xyz.txt" ; 

if (match ($x, \@array)) { 
    say "it's there!" ; 
} 
else { 
    say "no hay nada"; 
} 

Это «просто», потому что RHS контролирует поведение. С match::simple, если вы соответствуете массиву на RHS, он должен быть arrayref.

Smart::Match также имеет функцию none. Для того, чтобы использовать его, вы должны сделать следующее:

if ($x ~~ none (@array)) { 
    say "not here so do stuff ..."; 
} 

Приложение

Обсуждение здесь на Stackoverlfow (см: Perl 5.20 and the fate of smart matching and given-when?) и в других местах (срPerlmonks article по @ikegami от около жемчужно-5.18) дает контекст для эксперимента smartmatch. TLDR; вещи могут измениться в будущем, но между тем, вы можете пойти назад во времени и use match::smart qw(match); с perl-5.8.9 доказать еще раз, что perl никогда не умирает; он просто возвращается к своей экосистеме.

В будущем что-то вроде Smart::Match (т.е.. Модуль CPAN непрофильного не понятие) может помочь перегружать упрощенный смарт-оператор согласования с вспомогательными функциями, которые считывают как наречия и прилагательных и имеют дополнительный бонус (как я понять) прояснения/упрощения вещей для самого perl, поскольку оператор ~~ будет иметь менее двусмысленный контекст для своих операций.

Answer 6

Вы можете использовать функцию none от List::MoreUtils.

Если у вас действительно есть массив как ваша подчиненная линия говорит, то ваш код будет выглядеть следующим образом

use List::MoreUtils 'none'; 

if (none { $_ eq $a } @array) { 
    # Do stuff 
} 

или если у вас действительно есть две константы, то вы могли бы использовать этот

if (none { $_ eq $a } 'value1', 'value2') { 
    # Do stuff 
} 

, но в в этом случае я бы предпочел посмотреть только

if ($a ne 'value1' and $a ne 'value2') { 
    # Do stuff 
} 

Answer 7

Я бы сделал что-то подобное с помощью grep с regex матч

#!/usr/bin/perl 
use warnings; 
use strict; 

my @array = ('value1','value2'); 

if(grep(/\bvalue1\b|\bvalue2\b/, @array)){ 
    print "Not Found\n"; 
} 
else { 
    print "do something\n"; 
}