arrays - 检查数组中元素的更快方法？

Question

此函数与 exists 的作用相同使用哈希。

我打算经常使用它。

它可以以某种方式优化吗？

my @a = qw/a b c d/;

my $ret = array_exists("b", @a);

sub array_exists {
    my ($var, @a) = @_;

    foreach my $e (@a) {
        if ($var eq $e) {
            return 1;
        }
    }
    return 0;
}

Answer 1

您可以使用 smart matching ，在 Perl 5.10 及更高版本中可用:

if ("b" ~~ @a) {
    # "b" exists in @a
}

这应该比函数调用快得多。