DBI ile bir veritabanından tek bir sayı değeri nasıl alabilirim?

Question

Aşağıdaki kod tek bir sayı değeri almak için çok fazla gibi görünüyor. Düz DBI kullanarak tek bir COUNT değeri almak için önerilen daha iyi bir yol var mı?

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

    return $count; 
} 

Bu daha kısa, ancak hala iki tablom var.

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 bilmiyorum ama sözdizimi mantıklı eğer bu senin 2 örneğine dayanarak çalışacak düşünürdüm: hiçbir ekstra değişkenler tek satırda yapmak için yeterli Kolay

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

Answer 3

muhtemelen bu kendim yapmazdım, ama her zaman kullandığınız o DBH nesnenin yeni bir üst düzey işlevi yapabilir

:

UYARI: test edilmemiş kodlar izler! Sonra

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; 

} 

ve böyle diyoruz:

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

ait olmayan bir ad kirletmeden yanında Seninkini eminim olsa da, kullandığınız her DB sürücü için bunu yazmak zorunda kalacak Belirli bir DBH nesnesi için bunu otomatik olarak yapılandırmak için bazı kodları oluşturmanıza ve değerlendirmenize izin veren bir şeyler çalıştırabilir.