regex – Perl：查找变量的值是否与数组中的值匹配

@fruits_i_like = qw (mango banana applE);

您可以使用这样的哈希： @H_935_4@my %h = map {$_ => 1 } @fruits_i_like; if (exists $h{$this_fruit}) { # do stuff }

这是一个比较这种方式与mfontani解决方案的基准

#!/usr/bin/perl 
use warnings;
use Strict;
use Benchmark qw(:all);

my @fruits_i_like = qw/mango banana apple/;
my $this_fruit = 'banana';
my %h = map {$_ => 1 } @fruits_i_like;
my $count = -3;
my $r = cmpthese($count,{
    'grep' => sub {
         if ( scalar grep $this_fruit eq $_,@fruits_i_like ) {
             # do stuff
         }
    },'hash' => sub {
        if (exists $h{$this_fruit}) {
             # do stuff
        }
    },});

输出：

Rate grep hash
grep 1074911/s   -- -76%
hash 4392945/s 309%   --