Perl: Поиск элемента в массиве

Question

Учитывая array @A, мы хотим проверить, есть ли в нем element $B. Один из способов сказать это:

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

Однако, когда дело доходит до Perl, я всегда думаю о самом элегантном пути. И это то, что я имею в виду: Есть ли способ узнать, если массив А содержит B, если преобразовать к переменной строки и использовать

index(@A,$B)=>0 

Возможно ли это?

Answer 1

Есть много способов, чтобы выяснить, присутствует ли в массиве или нет элемент:

1. Использование Еогеасп

   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. Использование Hash инициализируется кусочком

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

5. Использование Hash инициализируется карте

   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;