perl - 在 Perl 中，如何从散列中获取任意值？

Question

考虑一个填充的哈希:

%hash = ( ... );

我想从哈希中检索一个值；任何值都可以。

我想避免

$arbitrary_value = (values %hash)[0];

因为我真的不想创建一个键数组，只是为了得到第一个。

有没有办法在不生成值列表的情况下做到这一点？

注意:它不需要是随机的。任何值都可以。

有什么建议？

编辑:
假设我不知道任何键。

Answer 1

使用 each :

#!/usr/bin/env perl

use strict; use warnings;

my %h = qw(a b c d e f);

my (undef, $value) = each %h;
keys %h; # reset iterator;

print "$value\n";

正如评论中所指出的， In particular, calling keys() in void context resets the iterator with no other overhead . This behavior has been there at least since 2003何时将信息添加到 keys 的文档中和 values .