perl - 如何验证 Perl 中的数组(列表)中是否存在值？

Question

我有一个可能值的列表:

@a = qw(foo bar baz);

如何以简洁的方式检查值 $val @a 中存在或不存在?

一个明显的实现是遍历列表，但我确信 TMTOWTDI .

感谢所有回答的人!我想强调的三个答案是:

公认的答案 - 最“内置”和向后兼容的方式。

RET's answer是最干净的，但只适用于 Perl 5.10 及更高版本。

draegtun's answer (可能)快一点，但需要使用额外的模块。如果我可以避免它们，我不喜欢添加依赖项，在这种情况下不需要性能差异，但如果你有一个 1,000,000 元素列表，你可能想试试这个答案。

Answer 1

使用 List::Util 中的第一个函数这是 Perl 的标准配置......

use List::Util qw/first/;

my @a = qw(foo bar baz);
if ( first { $_ eq 'bar' } @a ) { say "Found bar!" }

注意。 first 返回它找到的第一个元素，因此不必遍历完整列表(这是 grep 将要做的)。