Perl：安全地从列表中生成哈希，检查重复项

Question

在 Perl 中，如果您有一个包含偶数个元素的列表，您可以直接将其转换为哈希：

my @a = qw(each peach pear plum);
my %h = @a;

但是，如果有重复的键，那么它们将被静默接受，最后一次出现的是使用的键。我想做一个哈希检查是否有重复：

my @a = qw(a x a y);
my %h = safe_hash_from_list(@a);    # prints error: duplicate key 'a'

显然我可以自己编写该例程：

sub safe_hash_from_list {
    die 'even sized list needed' if @_ % 2;
    my %r;
    while (@_) {
        my $k = shift;
        my $v = shift;
        die "duplicate key '$k'" if exists $r{$k};
        $r{$k} = $v;
    }
    return %r;
}

然而，这比简单的赋值要慢很多。此外，如果有一个 CPAN 模块已经完成相同的工作，我不想使用我自己的私有例程。

在 CPAN 上是否有合适的例程可以安全地将列表转换为哈希？理想情况下，它比上面的纯 Perl 实现快一点（尽管可能永远不会像简单的赋值那样快）。

如果允许我提出相关的后续问题，我还想知道一个绑定的哈希类，它允许每个键只分配一次并在重新分配时死亡。这将是上述问题的更一般情况。同样，我可以自己编写这样的绑定哈希，但我不想重新发明轮子，如果已经存在，我更喜欢优化的实现。

Answer 1

检查没有重复的键的快速方法是计算键并确保它们等于列表中项目数的一半：

my @a = ...;
my %h = @a;
if (keys %h == (@a / 2)) {
    print "Success!";
}