在 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";

正如评论中指出的，特别是，在 void 上下文中调用 keys() 会重置迭代器，而不会产生其他开销。 这种行为至少自 2003 年以来就一直存在，当时信息被添加到键 和 值。

Answer 2

作为练习，使用 Sinan 提供的 %h 变量，以下内容对我有用：

my (undef, $val) = %h;
print $val, "\n";

当然，以下内容也有效：

print((%h)[1], "\n");

有趣的事实：看起来 Perl 使用与一个用于 each，但没有迭代器重置捕获。