perl – 确定$sth是否有行而不消耗它？

使用DBI有一种方法可以确定SELECT语句的执行语句句柄是否会返回任何行而不从中获取？

即就像是：

use DBI;
...
my $sth = $dbh->prepare("SELECT ...");
$sth->execute;

if (..$sth will return at least one row...) {
  ...
} else { 
  ...
}

并且我想执行测试$sth将返回至少一行而不在$sth上执行任何获取方法.

注意 – 我不需要精确的行数(即$sth->行),我只需要知道$sth->行是否为> 0.

解决方法

$sth->行仍然是您的最佳选择.如你所说,只需检查它是否超过0.

if ($sth->rows > 0){
  # magic here!
}

除了！ DBI文档说,在获取所有行之前,这对于选择的状态是不可靠的.无法确定提前获取的行数.如果你需要知道这个建议是先做一个

select count(*) from <table>

见this section of the DBI documentation.