DBIがフェッチされた配列参照をハッシュに変換する

Question

大きなMySQLテーブルをフェッチし、いくつかのフィールドの名前を変更してJSONに書き込むプログラムを作成しようとしています。ここで私は今のところ持っているものです。

use strict; 

use JSON; 
use DBI; 

# here goes some statement preparations and db initialization 

my $rowcache; 
my $max_rows  = 1000; 
my $LIMIT_PER_FILE = 100000; 

while (my $res = shift(@$rowcache) 
    || shift(@{ $rowcache = $sth->fetchall_arrayref(undef, $max_rows) })) { 

    if ($cnt % $LIMIT_PER_FILE == 0) { 

     if ($f) { 
      print "CLOSE $fname\n"; 
      close $f; 
     } 

     $filenum++; 
     $fname = "$BASEDIR/export-$filenum.json"; 

     print "OPEN $fname\n"; 
     open $f, ">$fname"; 
    } 

    $res->{some_field} = $res->{another_field} 
    delete $res->{another_field} 

    print $f $json->encode($res) . "\n"; 

    $cnt++; 
} 

私は Speeding up the DBI からデータベースの行のキャッシング技術を使用し、すべてが良いようです。

今私が唯一持っている問題は、$res->{some_field} = $res->{another_field}に、行インタープリタが文句を言い、$resがNot a HASH referenceであるということです。

誰でも私の間違いを指摘できますか？

Answer 1

fetchall_arrayrefにhashrefの配列を返す場合は、最初のパラメータはハッシュリファレンスにする必要があります。それ以外の場合は、配列参照の配列が返され、「ハッシュリファレンスではありません」というエラーが発生します。だから、単に空のハッシュを渡し、ハッシュリファレンスとして完全な行を返すために：

$rowcache = $sth->fetchall_arrayref({}, $max_rows)