perl - 如何将键从散列复制到数组而不重复？

Question

如果我有这样的数组和散列

#!/usr/bin/perl
use warnings;
use strict;
use Data::Dumper;

my @a = qw/a b c d e/;
my %h = (a => 1, b => 1, f => 1, g => 1);

我想以 @a 结束，其中包含 %h 中的所有键，并且数组中的任何元素都不能出现超过一次。

如何做到这一点，因为 exists 不适用于数组？

Answer 1

如果你有 Perl 5.10 及更高版本，你可以使用智能匹配(~~):

for my $key (keys %h) {        
    push @a, $key unless $key ~~ @a;      
}

否则，List::Util 的first 可以帮助:

for my $key (keys %h) {        
    push @a, $key unless first { $_ eq $key } @a;      
}