Perl 搜索包含在数组中的字符串

Question

我有一个具有以下值的数组:

push @fruitArray, "apple|0";
push @fruitArray, "apple|1";
push @fruitArray, "pear|0";
push @fruitArray, "pear|0";

我想找出这个数组中是否存在字符串“apple”(忽略“|0”“|1”)

我在用:

$fruit = 'apple';
if( $fruit ~~ @fruitArray ){ print "I found apple"; }

哪个不起作用。

Answer 1

不要使用智能匹配。由于多种原因，它从未正常工作，现在被标记为实验性

在这种情况下，您可以使用 grep相反，连同适当的正则表达式模式

该程序测试 @fruitArray 的每个元素查看它是否以 $fruit 中的字母开头后跟一个管道字符 | . grep返回与模式匹配的元素数，如果至少有一个匹配，则为真值

my @fruitArray = qw/ apple|0 apple|1 pear|0 pear|0 /;

my $fruit = 'apple';

print "I found $fruit\n" if grep /^$fruit\|/, @fruitArray;

输出

I found apple