¿Cómo puedo obtener un valor de recuento único de una base de datos con DBI?

Question

El siguiente código parece ser demasiado para obtener un único valor de recuento. ¿Existe una forma mejor y recomendada de obtener un único valor de COUNT con 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; 
} 

Esto es más corto, pero todavía tengo dos declaraciones.

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

Answer 1

bastante fácil de hacer en una sola línea sin variables adicionales :

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

Answer 2

No sé Perl, pero si es la sintaxis es lógico yo creo que esto funcionaría en base a su segundo ejemplo:

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

Answer 3

que probablemente no haría esto a mí mismo, pero siempre se podía hacer una nueva función de nivel superior del objeto DAP que está utilizando:

ADVERTENCIA: ¡sigue el código no probado!

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; 

} 

y luego llamarlo así:

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

además de contaminar un espacio de nombres que no es el suyo, también tendría que escribir esto para todos los pilotos DB utiliza, aunque estoy seguro de que su podría funcionar algo que le permita construir y evaluar algún código para configurarlo automáticamente para un objeto DBH dado.