Wie überprüfe ich, ob mehr als ein Datensatz von DBI-Abfrage in Perl zurückgegeben wurde?

Question

Ich habe bereits auf der Website nach diesem gesucht, konnte aber nichts finden, was meine Frage beantwortet hat. Was bringt mich zu den Details:

Ich Abfrage Datenbank mit einer einfachen Select-Abfrage, realistisch (angesichts des Szenarios) sollte es nie mehr als etwa 5 bis 6 Datensätze zurückgeben. Ich möchte nur überprüfen, ob mehr als einer zurückgegeben wurde. Und wenn mehr als eine return act darauf war (in einer else-Anweisung), wenn nur eine zurückgegeben wurde, dann gehe ich mit dem Skript voran.

 

my $sql = qq { SELECT col1, col2, col3 
       FROM table 
      WHERE col1 = 'foo' 
      }; 

my $sth = $dbc->prepare_cached($sql) or die "Could not prepare statement: " . $dbc->errstr; 

$sth->execute() or die "Could not execute statement: " . $sth->errstr; 

# Not sure how to efficiently check for more than one row returned and still progress if true... This is my problem! I'm thinking a nested if to see if any rows were returned, and then progress with the check of one or more rows? But how can this me checked (like a count function?) 
if (my $ref = $sth->fetchrow_hashref()) { 

# One row was returned... 

} else { 
# More than one row was returned... Uh oh! 
} 

Wenn euch eines Threads wissen, dass ich nicht so beantwortet diese Frage einfach umleiten meine ausfindig machen konnte, und ich werde diesen Thread zunichte machen!

Grüße, BorisTheBulletDodger!

Answer 1

Verwenden Sie eine der fetchall_* oder selectall_* Methoden (siehe DBI documentation), da Sie nur 5-6 höchstens haben. Bestimmen Sie dann, wie viele Zeilen Sie erhalten haben.

Answer 2

Die einzige Möglichkeit zur autoritativen Bestimmung, ob mehr als eine Zeile von einer SELECT gefunden wurde, besteht darin, mehr als eine Zeile abzurufen. DBI stellt die ->rows-Eigenschaft zur Verfügung, aber es funktioniert nur für Nicht-SELECT-Anweisungen.

Die Antworten auf How can I check if a database query will return results? können auch nützlich sein, auch wenn es nicht ganz die gleiche Frage ist.

Answer 3

my $sth = $dbh->prepare(); 
$sth->execute(); 

my $row = $sth->fetchrow_hashref(); 
my $second = $sth->fetchrow_hashref(); 

if ($second) { 
    print "2+ rows\n"; 
} elsif ($row) { 
    print "1 row\n"; 
} else { 
    print "no rows\n"; 
} 

Answer 4

my $sth = $dbh->prepare("SELECT col1, col2, col3 FROM tablename"); 
$sth->execute(); 
my $rows = $sth->fetchall_arrayref({}); 
if (@$rows == 0) { 
    die "no rows returned"; 
} elsif (@$rows > 1) { 
    die "too many rows returned"; 
} 
my $row = $rows->[0]; 
print "col1 is $row->{col1}\n";