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

Question

是否可以将唯一的现有哈希键直接分配给标量？

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

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

%theha中存在SINGLE键已在前面的代码中得到验证.

提前致谢!

Answer 1

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

要么

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