मैं डीबीआई के साथ डेटाबेस से एक सिंगल गिनती मूल्य कैसे प्राप्त कर सकता हूं?

Question

निम्नलिखित कोड एक भी गिनती मूल्य प्राप्त करने के लिए, बस बहुत ज्यादा हो रहा है। सादा डीबीआई का उपयोग कर एक एकल 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; 
} 

यह कम है, लेकिन मैं अभी भी दो बयान है।

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

मैं पर्ल पता नहीं है, लेकिन अगर यह वाक्य रचना तार्किक है मैं इस अपने 2 उदाहरण के आधार पर काम करेगा लगता होगा:

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'); 

, आप भी, आप का उपयोग हर डीबी ड्राइवर के लिए यह लिख दिया था, हालांकि मुझे यकीन है कि अपने कर रहा हूँ कुछ ऐसा काम कर सकता है जो आपको किसी दिए गए डीबीएच ऑब्जेक्ट के लिए इसे स्वतः कॉन्फ़िगर करने के लिए कुछ कोड बनाने और निकालने की अनुमति देता है।