Найти элемент в массиве, который соответствует определенным критериям, если таковой имеется (Perl)?

Question

Существует ли идиома Perl для поиска элемента в массиве, который соответствует определенным критериям, если таковой имеется?

my $match = 0;
foreach(@list){
   if (match_test($_)){
      $result = $_;
      $match = 1;
      last;
      }
   }
$match || die("No match.");
say $result, " is a match.";

Пример кажется немного неуклюжим. Я ожидаю, что у Perl будет что-то, чтобы справиться с этим более чисто.

Answer 1

Да, grep - это то, что вы ищете:

my @results = grep {match_test($_)} @list;

grep возвращает подмножество @list, где match_test вернул true.grep называется filter в большинстве других функциональных языков.

, если вы хотите только первое совпадение, используйте first из List :: Util .

use List::Util qw/first/;

if (my $result = first {match_test($_)} @list) {
    # use $result for something
} else {
    die "no match\n";
}

Answer 2

Если может быть несколько совпадений:

 my @matches = grep { match_test($_) } @list;

Если совпадение может быть только одно, List :: Util 'first' быстрее (при условии, что совпадение найдено):

 use List::Util 'first';
 if (my $match = first { match_test($_)} @list)
 {
      # do something with the match...
 }