如果有符合特定条件的数组,是否在其中查找该项(Perl)?

对, grep 您正在寻找的是:

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

grep 返回的子集 @list 哪里 match_test 返回true。 格雷普 被称为 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";
}

如果可能有多个匹配项:

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

如果只有一场比赛, List::Util “s”first“更快(假设找到匹配项):

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