在 Perl 中将 MySQL 结果作为哈希表返回

Question

在 Perl 中，我正在执行类似于以下的 SQL 查询：

SELECT `id`, `title`, `price` FROM `gamelist`

我想要做的是获取此查询的结果并将其转储到哈希表中。我正在使用 DBI，目前我只知道如何执行以下操作：

my %results;
my $count = 0;
while( @result = $statement->fetchrow() ){
    %results{'id'}[$count] = $result[0];
    %results{'title'}[$count] = $result[1];
    %results{'price'}[$count] = $result[2];
    $count++;
}

但是我不喜欢使用 $result[0] 并相信第一个字段将是 ID。我更愿意有这样的东西：

my %results;
my $count = 0;
while( %result = $statement->fetchrow_as_hashtable() ){
    %results{'id'}[$count] = %result{'id'};
    %results{'title'}[$count] = %result{'title'};
    %results{'price'}[$count] = %result{'price'};
    $count++;
}

我尝试在 Google 上查找，但找不到 DBI/Perl 中内置的许多好的答案。我确实找到了一个提供此功能的开源类，但我觉得这应该可以在不使用其他人的类的情况下实现。

Answer 1

fetchrow_hashref 怎么样？

Answer 2

while (my $result = $statement->fetchrow_hashref) {
        print $result->{id};
        print $result->{title};
        print $result->{price};
}

使用 fetchrow_hashref 将结果直接存储在哈希中

Answer 3

有关 selectall_arrayref 的用法，请参阅 DBI 文档：

 $rows = $dbh->selectall_arrayref($query, {Slice=>{}}, @params)

$rows 是一个哈希数组。