mysql - Perl mysql，为什么这个fetchrow_array 不起作用？

Question

我有这样的 Perl 代码:

$pre = $dbh->prepare("select distinct skills from people");
$pre->execute;

my @preList;
while (my $row = $pre->fetchrow_array()) {
    push (@preList,$row);
}
print "Pre list: $_" foreach @preList;

当我在 sql 中尝试完全相同的语句时，它工作得很好，但是当我运行这个程序时，它什么也没有打印出来(建议一个空的 @preList)。我可能正在做一些非常愚蠢的事情，但看不到它。我以前用这种格式来获取数据，效果很好。谁能看到我做错了什么？

Answer 1

现在您正在执行 fetchrow_array，它返回一个列表，但您正试图将其存储在标量中，您可以将其更改为 fetchrow_arrayref 或更改 $row 为 @row，或将 my $row 更改为 my ($row)。