Perl dbi sqlite 'select * ..' 只返回第一个元素

Question

perl dbi sqlite 有问题。

我已经建立了一个数据库(并用 sqlite 命令行检查了它)。
现在我想在这个数据库中搜索，但没有用。

所以我试着做一个'SELECT *'
此打印 只有第一个元素 在数据库中，但不是该表中的所有内容。

我认为导致 select * 失败的错误与阻止我使用“like %..%”的东西是一样的。

这是相关代码，如果代码正确并且数据库表看起来不错，还有什么可能导致问题？

 my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile","","") || die "Cannot connect: $DBI::errstr";

my $sth = $dbh->prepare('SELECT * FROM words');
$sth->execute;
my @result = $sth->fetchrow_array();


foreach( @result) {
    print $_;
}

Answer 1

fetchrow_array () 只获取一行。

尝试

while ( my @row = $sth->fetchrow_array ) {
  print "@row\n";
}