只用一个键在哈希中查找键名？

Question

如果我有哈希

my %h = (
    secret => 1;
);

我知道这只是哈希中的一个键,但我不知道它叫什么.

然后我必须遍历该哈希

my $key;
foreach my $i (keys %h) {
    $key = $h{$i};
}

或者有更好的方法来获取密钥的名称？

Answer 1

一个列表的片段应该这样做

(keys %h)[0]

keys 返回一个列表,所以只需提取该列表的第一个元素.

Answer 2

my ($key) = keys %h;

当您在赋值运算符的两侧使用列表上下文时,键列表中的第一项将分配给$ key.

Answer 3

我不相信有必要使用这个keys功能.

my ($key) = %h;

要么

my $key = (%h)[0];

parens中的哈希将扩展为列表,然后我们可以简单地获取该列表的第一个元素,这是关键.

Answer 4

my @keys = keys %h;
my $key = $keys[0];