加快Perl DBI fetchrow_hashref的速度

Question

我有这样的东西：

my $report = new ReportGenerator; #custom object
my $dbh = $dbc->prepare('SELECT * FROM some_table WHERE some_condition'); #DBI handle
$dbh->execute();
while(my $href = $dbh->fetchrow_hashref){
    $report->process_record($href);
}
$dbh->finish();
print $report->printReport();

我的问题是循环的每次迭代都很慢。问题是MySQL。我想知道是否可以在while循环中放入某种包装程序，以使其一次获取多个记录，同时将所有记录获取到内存中也不可行。我不担心代码的效率（hashref与arrayref等）。相反，我有兴趣一次获取10000条记录。

该数据库有约500万条记录。我无法更改/升级服务器。

谢谢

Answer 1

您可以使用fetchall_arrayref函数，该函数接受“ maxrows”参数：

while (my $data = $dbc->fetchall_arrayref(undef, 10000)) {
  for my $row( @{$data} ) {
    $report->process_record($row);
  }
}

您还可以查看RowCacheSize属性，该属性试图控制从驱动程序中提取多少记录。