Perl的grep不適用於取消引用的數組

Question

我想找到一個相當於python var in list成語的perl，並且偶然發現了這個問題。

perl grep可以執行grep { $_ eq $var } @list表達式以匹配列表邏輯中的元素。

如果我使用像grep { $_ eq $var } @$list這樣的derefenced數組，其中$ list被定義爲['foo'，'bar']，我不會得到相同的結果。

有沒有辦法讓grep使用解引用數組工作？

Answer 1

該成語應該可以正常工作;我認爲一個不起作用的代碼示例會很有幫助。正如這一個匆匆玩具例如，儘管：

#!/usr/bin/perl 
use strict; 
use warnings; 

use Test::More; 

sub find_var { 
    my ($var,$array) = @_; 
    print "Testing for $var in [" . join(',',@$array) . "]...\n"; 
    if (grep $var eq $_, @$array) { 
     return "found it"; 
    } else { 
     return "no match!\n"; 
    } 
} 

my @array = qw(apple pear cherry football); 
my $var = 'football'; 
my $var2 = 'tomato'; 

is(find_var($var, \@array), 'found it'); 
is(find_var($var2, \@array), 'found it'); 
done_testing(); 

這導致下面的輸出，這表明在數組引用「足球」的第一個測試是成功的，而對於「番茄」第二測試不是：

Testing for football in [apple,pear,cherry,football]... 
ok 1 
Testing for tomato in [apple,pear,cherry,football]... 
not ok 2 
# Failed test at array.pl line 22. 
#   got: 'no match! 
# ' 
#  expected: 'found it' 
1..2 
# Looks like you failed 1 test of 2.