Jak mogę pobrać pojedynczą wartość licznika z bazy danych za pomocą DBI?

Question

Poniższy kod wydaje się po prostu zbyt duży, aby uzyskać pojedynczą wartość zliczania. Czy istnieje lepszy, zalecany sposób pobierania pojedynczej wartości COUNT za pomocą zwykłego DBI?

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

    return $count; 
} 

To jest krótszy, ale nadal mam dwa oświadczenia.

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

Answer 1

dość łatwe do zrobienia w jednej linii bez dodatkowych zmiennych :

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

Answer 2

Nie wiem, Perl, ale jeśli jest to składnia jest logiczne, że myślę, że to będzie działać w oparciu o 2 przykład:

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

Answer 3

pewnie nie byłoby to zrobić sam, ale zawsze można zrobić mu nową funkcję najwyższego poziomu obiektu DBH używasz:

OSTRZEŻENIE: nieprzetestowany kod następuje!

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; 

} 

a następnie nazwać tak:

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

Poza zanieczyszczających przestrzeń nazw, które nie jest twoje, ty też musisz napisać to dla każdego kierowcy DB użyć, choć jestem pewien swojej może coś wymyślić, co pozwoli ci na skonstruowanie i ewaluowanie kodu w celu automatycznej konfiguracji tego dla danego obiektu DBH.