DBIを使用してデータベースから単一のカウント値をフェッチする方法はありますか？

Question

以下のコードは単なるカウント値を得るには多すぎるようです。 プレーンDBIを使用して1つのCOUNT値をフェッチする方法が推奨されていますか？

sub get_count { 
    my $sth = $dbh->prepare("SELECT COUNT(*) FROM table WHERE..."); 
    $sth->execute(@params); 
    my $($count) = $sth->fetchrow_array; 
    $sth->finish; 

    return $count; 
} 

これは短いですが、まだ2つのステートメントがあります。

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

Answer 1

：

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

Answer 2

私はPerlを知らないが、それは構文が論理的であるかどう私はこれがあなたの第二の例に基づいて動作すると思うだろう：余分な変数を1行で行うのに十分簡単

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

Answer 3

私はおそらくこれを自分でしないだろうが、あなたは常にそれあなたが使用しているDBHオブジェクトの新しいトップレベルの機能を作ることができます：

警告：テストされていないコードが続きます！

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オブジェクトのためにこれを自動構成するコードをいくつか構築し、評価することができる何かを働かせることができます。