无法找到项目数组中是否存在一个项目并在 Perl 中返回必要的消息

Question

我有一组 ID。我有一个 ID，我想查找该 ID 是否存在于 Perl 的 ID 数组中

我尝试了以下代码：

my $ids = [7,8,9];

my $id = 9;

foreach my $new_id (@$ids) {
   if ($new_id == $id) {
       print 'yes';
   } else {
       print 'no';
   }
}

我得到的输出为：

nonoyes

相反，我只想获得输出：

yes

由于 ID 存在于 ID 数组中

任何人都可以帮忙吗？

提前致谢

Answer 1

my $ids = [7,8,9];
my $id = 9;
if (grep $_ == $id, @ids) {
    print $id. " is in the array of ids";
} else {
    print $id. " is NOT in the array";
}