在Perl中,如何将从数据库中读取的数组转换为哈希？

Question

基本上,我正在查询数据库,我需要将结果数组转换为哈希值.

我按如下方式查询数据库

my $sth = $dbw->prepare($sql);
while (@rows = $sth->fetchrow_array()) {  
...
...
}

现在,我需要创建一个散列,使得rows [0]是键,行[1],行[2],行[3]是值.对于每个读取的记录,必须生成新的散列键并设置相应的值

如果我的表看起来像

abc 2.3 2.4 2.5
def 3.2 3.3 3.4
ijk 4.5 4.6 4.7

读取第一条记录,abc是键,数字是值...等等

Answer 1

您还可以查看selectall_hashref.

$hash_ref = $dbh->selectall_hashref($statement, $key_field);

Answer 2

my %hash;

while (my @fields = $sth->fetchrow_array()) {  
    $hash{$fields[0]} = [ @fields[1..$#fields] ];
}