如何检查 Perl 中的 DBI 查询是否返回了多个记录？

Question

我已经在网站上搜索过此内容，但找不到任何可以回答我问题的内容。这让我想到了细节：

我正在使用简单的选择查询来查询数据库，实际上（给定场景）它不应该返回超过 5 到 6 条记录。我只是想检查是否已退回多个。如果已经返回了多个（在 else 语句中），如果只返回了一个，那么我会继续执行脚本。

我的 $sql = qq { 选择 col1，col2，col3 从表 在哪里 col1 = 'foo' }; 我的 $sth = $dbc->prepare_cached($sql) 或 die "Could not prepare statement:" 。 $dbc->errstr; $sth->execute() 或 die "Could not execute statement:" 。 $sth->errstr; # 不知道如何有效地检查返回的多于一行，如果为真，仍会继续进行......这是我的问题！我在想一个嵌套的 if 来查看是否返回了任何行，然后检查一行或多行？但是我该如何检查（比如计数功能？） if (我的 $ref = $sth->fetchrow_hashref()) { # 返回一行... } 别的 { # 不止一行返回了...呃哦！ }

如果你们知道我找不到一个回答这个问题的帖子，只需重定向我的帖子，我就会取消这个帖子！

问候， BorisTheBulletDodger！

Answer 1

使用fetchall_* 或selectall_* 方法之一（请参阅DBI documentation），因为您最多只有5-6 个。然后确定你到底得到了多少行。

Answer 2

权威地确定SELECT 是否找到多行的唯一方法是尝试检索多行。 DBI 确实提供了->rows 属性，但它只保证适用于非SELECT 语句。

How can I check if a database query will return results? 的答案也可能很有用，尽管这不是同一个问题。

Answer 3

my $sth = $dbh->prepare();
$sth->execute();

my $row = $sth->fetchrow_hashref();
my $second = $sth->fetchrow_hashref();

if ($second) {
  print "2+ rows\n";
} elsif ($row) {
  print "1 row\n";
} else {
  print "no rows\n";
}

Answer 4

my $sth = $dbh->prepare("SELECT col1, col2, col3 FROM tablename");
$sth->execute();
my $rows = $sth->fetchall_arrayref({});
if (@$rows == 0) {
    die "no rows returned";
} elsif (@$rows > 1) {
    die "too many rows returned";
}
my $row = $rows->[0];
print "col1 is $row->{col1}\n";