Perl 判断 X 是否是数组中的元素

Question

我不知道为什么在 Perl 中小事对我不起作用。我对此感到抱歉。

我已经尝试了大约 2 小时，但我无法得到结果。

my $technologies = 'json.jquery..,php.linux.';
my @techarray = split(',',$technologies);

#my @techarray = [
#          'json.jquery..',
#          'php.linux.'
#        ];

my $search_id = 'json.jquery..';

check_val(@techarray, $search_id);

我正在做一个“如果”来搜索数组中的上述项目。但它不适合我。

 sub check_val{
        my @techarray = shift;
        my $search_id = shift;
          if (grep {$_ eq $search_id} @techarray) {
                print "It is there \n";
            }else{
                print "It is not there \n";
            }
     }

输出：它总是处于 else 条件并返回“它不存在！” :(

任何想法。我完成了任何愚蠢的错误吗？

Answer 1

您正在使用 匿名数组 [ ... ]，然后将其作为标量（引用）分配给 @techarray，作为其唯一元素。就像@arr = 'a';。数组由( ... ) 定义。

一种补救方法是定义一个数组my @techarray = ( ... )，或者正确定义一个arrayref，然后在搜索时取消引用

my $rtecharray = [ .... ];
if (grep {$_ eq $search_id} @$rtecharray) {
    # ....
}

对于各种列表操作，请查看 List::Util 和 List::MoreUtils。

---

更新了问题的变化，因为添加了子

这还有点别的，更有启发意义。

当您将数组传递给函数时，它会作为其元素的平面列表传递。然后在函数中第一个 shift 拾取第一个元素， 然后第二个shift 拿起第二个。

然后搜索只包含'json.jquery..' 元素的数组，用于'php.linux.' 字符串。

相反，你可以传递一个引用，

check_val(\@techarray, $search_id);

并在函数中使用它。

---

注意如果你传递数组并在函数中获取参数为

my (@array, $search_id) = @_;  # WRONG

您实际上是 将所有 @_ 放入 @array。

例如，参见this post（传递给函数）和this post（从函数返回）。

一般来说，我建议通过引用传递列表。