如何使用DBI从数据库中获取单个计数值?

只需一行即可轻松完成,无需额外变量:

$count = $dbh->selectrow_array('SELECT count(*) FROM table WHERE...', undef, @params);

我不知道Perl,但如果它的语法是合乎逻辑的,那么我认为根据您的第2个示例,这会起作用:

sub get_count {
   return $dbh->selectall_arrayref("SELECT ...", undef, @params)->[0][0];
}

警告:未测试的代码如下!

sub DBD::SQLite::db::count
{
   my($dbh, $table, $where) = @_;

   my($stmt) = "SELECT COUNT(*) FROM $table";
   $stmt .= " WHERE $where" if $where;

   my($count) = $dbh->selectrow_array($stmt);

   return $count;

}

然后这样称呼它:

my($cnt) = $dbh->count('Employee', 'year_hired < 2000');

除了污染一个不属于您的名称空间之外,您还必须为您使用的每个DB驱动程序编写这个名称空间,尽管我相信您可以设计一些允许您构造和评估一些代码来自动配置给定DBH对象的代码。