如何判断某个数组中是否存在某个元素

如果数组是@array类型，则有两种判断方法：
1.循环判断，好处是可以获取该元素的索引。

my @array = qw(var1 var2 var3);
my %pos;
my $index = 0;
map { $pos{$_} = $index++ } @array;


if (exists $pos{var1})
{
warn "yes\n";
}

2.智能匹配判断，好处是代码简洁。

if ($elem ~~ @array)

如果$elem是数值类型的，则使用：

if ($elem + 0 ~~ @array)

实例如下：

my @array = qw(1 2 3 4);
my $elem = "1";
if ($elem + 0 ~~ @array)
{
    print "yes\n";
}

如果数组是%hash类型的话，则更加简单，可以直接使用：

if (exists $hash{$key})