如何直接将SOLE哈希键分配给perl中的标量

Question

是否可以直接将现有哈希密钥 分配给标量？

例如，这两个陈述可以组合成一个吗？

@the_keys = keys %the_hash;       # a hash with a single key
$the_sole_key = shift @the_keys;

％the_hash中存在 SINGLE 键已在前面的代码中得到验证。

提前致谢！

Answer 1

my ($key) = keys(%hash);

或

my $key = ( keys(%hash) )[0];