perl - 如何在不使用临时数组的情况下访问最后一个 Perl 哈希键？

Question

如何在不必创建临时数组的情况下访问哈希中键的最后一个元素？

我知道哈希是无序的。但是，有些应用程序(如我的)可以使用简单的 sort 订购我的 key 。调用哈希键。希望我已经解释了为什么我想要这个。我承认，barney/elmo 示例是一个糟糕的选择，但它确实有其应用。

考虑以下:

my %hash = ( barney => 'dinosaur', elmo => 'monster' );
my @array = sort keys %hash;
print $array[$#{$hash}];
#prints "elmo"

关于如何在不调用临时文件(在这种情况下为 @array)的情况下执行此操作的任何想法？

Answer 1

print( (keys %hash)[-1]);

请注意，额外的括号是必要的，以防止与 print 的语法混淆。的参数列表。

你也可以使用这个邪恶的技巧来强制它进入标量上下文并取消额外的括号:

print ~~(keys %hash)[-1];