检查特定值不在数组中

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

您还可以使用智能匹配运算符：

除非（$ X ~~ [ '值1'， '值']）

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); 

从match::simple的|M|操作员可以用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?）和其他地方（CF的Perlmonks article通过@ikegami从大约的perl-5.18）给出上下文为smartmatch实验。 TLDR;事情可能在未来发生变化，但与此同时，你可以去及时和use match::smart qw(match);用perl-5.8.9再次证明perl永不死亡;它只是返回到它的生态系统。

今后类似Smart::Match（即。非核心CPAN模块没有这个概念），可以帮助增压与念想副词和形容词，并有额外的奖励辅助功能简化的智能匹配运算符（如我理解它）澄清/简化perl本身的东西，因为~~运营商的运营环境会较不明确。

Answer 6

您可以使用List::MoreUtils的none功能。

如果你真的有一个数组作为你的主题行说，那么你的代码看起来像这样

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与正则表达式匹配

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