Comment puis-je récupérer une seule valeur de comptage à partir d'une base de données avec DBI?

Question

Le code suivant semble être trop, pour obtenir une seule valeur de comptage. Existe-t-il une meilleure façon recommandée d'extraire une seule valeur COUNT en utilisant DBI simple?

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

    return $count; 
} 

Ceci est plus court, mais j'ai toujours deux instructions.

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

Answer 1

assez facile à faire dans une ligne sans variables supplémentaires :

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

Answer 2

Je ne sais pas Perl, mais si elle est la syntaxe est logique je pense que cela fonctionnerait en fonction de votre 2ème exemple:

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

Answer 3

Je ne serais probablement pas faire moi-même, mais vous pouvez toujours faire une nouvelle fonction de haut niveau de l'objet DBH que vous utilisez:

ATTENTION: le code non testé suit!

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; 

} 

puis l'appeler comme ceci:

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

Outre la pollution d'un espace de noms qui ne vous appartient pas, vous auriez aussi écrire ceci pour chaque pilote DB que vous utilisez, mais je suis sûr que votre pourrait fonctionner quelque chose qui vous permet de construire et d'évaluer du code pour le configurer automatiquement pour un objet DBH donné.