如何在Perl中以惯用方式访问单个元素哈希的第一个元素？

Question

我有使用DBI的fetchall_hashref（）获取一些数据的脚本。

通常它会返回如下所示的散列引用：

{ 1 => { id => 1 } }

但是，我只对散列中第一项的值感兴趣，这是特定列的最大值。我知道Perl哈希值没有排序，但幸运的是这个特定的查询总是返回1或0条记录（因为这是一个MAX（）查询）。

但是目前用于实现这一目标的代码真的很难看：

$results->{(keys %{$results})[0]}->{'id'};

有更优雅的方式来激活它吗？ （不使用CPAN模块）

澄清

我从内部使用的数据访问层获取哈希值。一切都通过fetchall_hashref（）返回。我没有调用fetchall_hashref（）本身，它只是如何在内部实现数据访问功能，所以我被告知。我是返回数据的消费者，它恰好是哈希的形式。我正在寻找一种更简洁的方法（如果存在的话）来访问单个返回值查询的结果

Answer 1

您可以取消引用id中第一个值的%$results键：

(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只能包含一个或零个元素，所以这是一个有效的方法。

Answer 2

如果您只获得0/1行，为什么不进行selectrow_array或selectrow_hashref，而不是fetchall_hashref？

Answer 3

为什么使用fetchall_hashref来获取单个值？最好使用selectrow_array：

my ($max) = $dbh->selectrow_array($sql);

更新：如果您不能使用其他DBI方法，则更简洁的方法是：

my $val = [%$results]->[1]{id};

Answer 4

您的数据访问层是否始终返回带有顺序键的哈希？如果是这样，那么

呢

$results->{1}{id}

（当然，它可能不是......但是您的示例数据使用了第一条记录的密钥1，因此数据访问层可能使用确定性密钥。）

Answer 5

my @keys = sort { $a <=> $b } keys %$results;
my $first = $keys[0];
$results->{$first}->{id};

或$ first = 1;

$results->{1}->{id};