Perl DBI - la Capture des erreurs

Quelle est la meilleure façon de capturer tout DBI erreurs en Perl? Par exemple, si une insertion échoue parce qu'il y avait des caractères illégaux dans les valeurs de l'insertion de comment puis-je ne pas avoir le script échoue, mais la capture de l'erreur et de gérer de manière appropriée.

Je ne veux pas faire le "or die" parce que je ne veux pas arrêter l'exécution du script.

OriginalL'auteur Chris | 2011-01-27

  1. 12

    Utiliser le RaiseError=>1 de configuration dans DBI->connect, et envelopper vos appels à la $dbh et $sth dans un bloc try (TryCatch et Essayez::Minuscule sont bonnes implémentations pour les blocs try).

    Voir les docs pour plus d'informations sur d'autres relier les variables disponibles.

    par exemple:

    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: $_";
};
    Ne devriez-vous pas mis le connect dans le try bloc?
    ce n'est pas nécessaire - connect renvoie undef en cas d'échec. (Voir les docs - vous juste besoin de vérifier si un $dbh a été retourné.)
    mais vous ne pas vérifier.
    que pensez-vous qui va se produire lorsque vous essayez d'appeler une méthode sur une référence non définie ($dbh)? Il va mourir, qui va être pris par le bloc try/catch. C'est bien dans ce cas, la connexion est faite immédiatement avant de l'utiliser, mais dans le code de production (qui peut se connecter à long avant la première db requête), vous pourriez vouloir faire autre chose. De même, dans le code de production, vous voudrez peut-être avoir un traitement spécial pour les connexions qui ont expiré. tl;dr version: lire attentivement le manuel d'utilisation notes sur n'importe quelle méthode que vous appelez!

    OriginalL'auteur Ether

  2. 2

    vous pouvez également effectuer les opérations suivantes, qui vous permettra de mourir, ou de traiter les erreurs et de continuer.

    $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";
}

    OriginalL'auteur tquiring