Überprüfen, ob Update-Abfrage betroffenen Zeilen perl

Question

Ich habe eine "UPDATE" -Abfrage und ich möchte überprüfen, ob diese Abfrage Zeilen betroffen hat und wenn es hat, möchte ich eine E-Mail an mich selbst senden. Ich bin nicht wirklich erfahren mit Perl oder SQL. (Ich benutze postgresql).

EDIT: Ich weiß, dass UPDATE "count" zurückgibt, die angibt, wie viele Zeilen, wenn alle aktualisiert worden sind, aber ich weiß immer noch nicht, wie man dazu kommt.

Der Code sieht wie folgt aus:

my $updateQuery - //UPDATE query 
if(//updateQuery has effected rows){ 
    //send mail 
}else 
    //do nothing 

Das Problem ist, ich weiß nicht, was passiert, wenn die in setzen, welche Flagge sollte ich? Gibt es eine einfache Überprüfung, dass die Antworten "Zeilen bewirkt" haben?

Answer 1

Shortcut Version do()

my $update_query = '...'; 

my $ret = $dbh->do($update_query); 

if ($ret) { 
    if ($ret eq '0E0') { 
    # no rows updated 
    } else { 
    # rows updated 
    } 
} else { 
    # error 
} 

Voll prepare()/execute() Version.

my $update_query = '...'; 
my $sth = $dbh->prepare($update_query); 

my $ret = $sth->execute; 

if ($ret) { 
    if ($ret eq '0E0') { 
    # no rows updated 
    } else { 
    # rows updated 
    } 
} else { 
    # error 
}