Perl：搜索数组中的项目

Question

鉴于array @A，我们要检查element $B是否在其中。一种方法是这样说：

Foreach $element (@A){
    if($element eq $B){
        print "$B is in array A";
    }
}

然而，当它到达Perl时，我总是在考虑最优雅的方式。这就是我的想法： 如果我们将A转换为变量字符串并使用

，是否有办法找出数组A是否包含B.

index(@A,$B)=>0

这可能吗？

Answer 1

有多种方式来确定元素是否存在于数组中：

1. 使用foreach

   foreach my $element (@a) {
       if($element eq $b) {
          # do something             
          last;
       }
   }
   

2. 使用Grep：

   my $found = grep { $_ eq $b } @a;
   

3. 使用List::Util模块

   use List::Util qw(first); 
   
   my $found = first { $_ eq $b } @a;
   

4. 使用由Slice初始化的哈希

   my %check;
   @check{@a} = ();
   
   my $found = exists $check{$b};
   

5. 使用地图初始化的哈希

   my %check = map { $_ => 1 } @a;
   
   my $found = $check{$b};
   

Answer 2

use 5.10.1;

$B ~~ @A and say '$B in @A';

Answer 3

use List::AllUtils qw/ any /;
print "\@A contains $B" if any { $B eq $_ } @A;