我有一个使用 DBI 的 fetchall_hashref() 获取一些数据的脚本。
通常它返回一个哈希引用，如下所示：
{ 1 => { id => 1 } }
但是，我只对哈希中第一项的值感兴趣，它是特定列的最大值。我知道 Perl 哈希没有排序，但幸运的是这个特定的查询总是返回 1 或 0 条记录（因为这是一个 MAX() 查询）。
但是目前用来实现的代码真的很丑：
$results->{(keys %{$results})[0]}->{'id'};
有没有更优雅的方式来激活它？ （不借助 CPAN 模块）
澄清
我从我们内部使用的数据访问层获取哈希值。一切都通过 fetchall_hashref() 返回。我不调用 fetchall_hashref() 本身，它只是内部实现数据访问函数的方式，所以有人告诉我。我是该返回数据的消费者，它恰好是散列的形式。我正在寻找一种更简洁的方式（如果存在）来访问单个返回值查询的结果
【问题讨论】：
您可以取消引用%$results 中第一个值的id 键：
(values %$results)[0]->{id};
通常，这不会是well defined，因为the ordering of values returned keys or values can be different even between runs on the same machine using the same perl，但既然你说%$results 只能包含一个或零个元素，这是一个有效的方法。
【讨论】：
(values %{(values %$results)[0]})[0]
(values %$results)[0]->{id}; 是完美的。它清楚地表明您对整个%$results 不感兴趣，只对它的值感兴趣。无需尝试为其添加更多 value。
values 完成此任务并获得了第二名：D 但在可读性方面这是第一名。
如果您只返回 0/1 行，为什么不使用 selectrow_array 或 selectrow_hashref 而不是 fetchall_hashref？
【讨论】：
您为什么使用fetchall_hashref 来获取单个值？最好使用selectrow_array：
my ($max) = $dbh->selectrow_array($sql);
更新：如果您不能使用其他 DBI 方法，更简洁的方法是：
my $val = [%$results]->[1]{id};
【讨论】：
[%$results] 到底是什么？
%$results 的键/值对的数组的引用来自perldata：作为其他列表的一部分包含的哈希（...）总是扁平化为键/值对。
您的数据访问层是否总是返回带有顺序键的散列？如果是，那又如何
$results->{1}{id}
（当然，它可能不会...但是您的示例数据使用键 1 作为第一条记录，因此数据访问层可能使用确定性键。）
【讨论】：
my @keys = sort { $a <=> $b } keys %$results;
my $first = $keys[0];
$results->{$first}->{id};
或者如果 $first = 1;
$results->{1}->{id};
【讨论】：