Perl-DBI - Erfassung, Fehler

Was ist die beste Art der Erfassung keine DBI-Fehler in Perl? Zum Beispiel, wenn ein insert schlägt fehl, denn es wurden unzulässige Zeichen in die Werte eingefügt werden, wie kann ich nicht das script fehl, aber den Fehler aufzuzeichnen und entsprechend behandeln.

Möchte ich nicht tun, "oder sterben", weil ich nicht wollen, beenden Sie die Ausführung des Skripts.

InformationsquelleAutor Chris | 2011-01-27
  1. 12

    Verwenden Sie die RaiseError=>1 Konfiguration in DBI->connect, und wickeln Sie Ihre Aufrufe an die $dbh und $sth in einem try-block (TryCatch und Try::Tiny sind gute Implementierungen für try-Blöcke).

    Sehen die docs für weitere Informationen zu verbinden-Variablen zur Verfügung.

    Beispiel:

    use strict;
use warnings;

use DBI;
use Try::Tiny;

my $dbh = DBI->connect(
    $your_dsn_here,
    $user,
    $password,
    {
        PrintError => 0,
        PrintWarn  => 1,
        RaiseError => 1,
        AutoCommit => 1,
    }
);
try
{
    # deliberate typo in query here
    my $data = $dbh->selectall_arrayref('SOHW TABLES', {});
}
catch
{
    warn "got dbi error: $_";
};
    • Sollte nicht die connect innerhalb der try blockieren sowie?
    • das ist nicht notwendig - connect return undef zurück, wenn es fehlschlägt. (Siehe die docs - Sie brauchen nur zu überprüfen, ob ein $dbh zurückgegeben wurde.)
    • aber Sie nicht prüfen.
    • was denkst du, wird passieren, wenn Sie versuchen, eine Methode aufzurufen, die auf eine nicht definierte Referenz ($dbh)? Es wird sterben, die gefangen werden, durch die try/catch-block. Das ist in Ordnung, in diesem Fall, wie die Verbindung hergestellt wird, unmittelbar bevor Sie versuchen, es zu benutzen, aber in der Produktion code (der möglicherweise eine Verbindung lange vor der ersten db-Abfrage), die Sie wünschen können, um etwas anderes zu tun. Ebenfalls in der Produktion-code haben möchten Sie vielleicht eine spezielle Behandlung für verbindungen, Zeitlimit überschritten. tl;dr-version: Lesen Sie die Bedienungsanleitung sorgfältig für die Nutzung Hinweise auf eine beliebige Methode, die Sie anrufen!
    InformationsquelleAutor Ether
  2. 3

    können Sie auch die folgenden, die Ihnen erlauben, zu sterben, oder sich ordnungsgemäß behandeln Sie den Fehler und fahren Sie Fort.

    $dbh = DBI->connect($data_src, $user, $pwd) or die $DBI::errstr;

my $sth = $dbh->prepare("DELETE FROM table WHERE foo = '?'");
$sth->execute('bar');
if ( $sth->err )
{
  die "DBI ERROR! : $sth->err : $sth->errstr \n";
}
    InformationsquelleAutor tquiring
Schreibe einen Kommentar