将哈希引用推入数组引用 perl

Question

我正在从数据库中获取数据......我想要实现的是为每个获取的数据行（id，title）创建一个哈希引用

{
   id => data->[0],
   title => data[1]
}

并将这个哈希引用推送到数组引用中以创建以下格式

 {  category => [
                   {
                    id => 1,
                    title => "title1"
                   },
                   {
                   id => 2,
                   title => "title2"
                   }
                  ]
              }

我做了什么：

   my $productCategories->{category} = [];
    my $product = {};
    my $sth = $dbh->prepare(qq[SELECT id,title FROM ].DB_SCHEMA().qq[.product_categories]) || die $dbh->errstr;
    $sth->execute() || die $dbh->errstr;
    while(my $data = $sth->fetch){
        $product =  {
                    id      =>  $data->[0],
                    title   =>  $data->[1]
                    };
        push $productCategories->{category}, $product;
    }

但它不起作用......

Answer 1

DBI 有许多获取数据的方法。其中之一称为fetchall_arrayref()，它将以您需要的结构返回数据 - 无需自己构建。

my $sth = $dbh->prepare(qq[SELECT id,title FROM ] .
                        DB_SCHEMA() .
                        qq[.product_categories])
  || die $dbh->errstr;

$sth->execute() || die $dbh->errstr;

# Pass a hash ref to get each row back as a hash.
$productCategories->{category} = $sth->fetchall_arrayref({});

Answer 2

打开use strict;use warnings;，它会告诉你原因。

push on reference 是实验性的

不是数组引用

试试：

push @{$productCategories->{category}}, $product;

另外：在循环之外声明你正在pushing 的事情要小心——在这种情况下你应该没问题，但请记住你正在推送一个引用。如果您重复使用变量，您可以最终推送相同的引用。