Pourquoi est-ce que je vois des erreurs DBI sur la console même si j'ai enveloppé les appels DBI dans un eval?

Question

J'ai une requête de base de données que je cours dans un eval, pour piéger l'erreur. Le problème est que le message d'erreur sort en console, même s'il est piégé. Comment puis-je arrêter le message d'erreur, car je veux l'analyser moi-même et cracher mes propres messages?

my $dbh = DBI->connect('dbi:Pg:dbname=database;host=localhost', 
    'user', 'pass', 
    {RaiseError => 1} 
); 

eval{ 
    $sth = $dbh->prepare($sql); 
    $sth->execute; 
}; 

if($@){ 
    #Do my parse/print stuff here I know 
} 

Answer 1

Vous pouvez spécifier 'PrintError => 0' dans votre connect appel (ou utilisez HandleError):

my $dbh = DBI->connect('dbi:Pg:dbname=database;host=localhost', $user, $passwd, { 
    PrintError => 0, 
    RaiseError => 1, 
}); 

ou pour régler par poignée de déclaration:

my $sth = $dbh->prepare("SELECT * from my_table"); 
$sth->{PrintError} = 0; 
$sth->execute(); 
...etc. 

aussi, ne dépendent pas de @ M $ pour i ndicating une erreur. Une meilleure façon d'utiliser eval est:

my $result = eval { 
    ... 
    $sth->...etc. 
    1; 
} 
unless ($result) { 
    # Do error handling..log/print $@ 
} 

Answer 2

eval { } piégera une erreur fatale (d'un appel die ou Carp::croak), mais pas un message d'erreur non fatale (de warn ou). Pour gérer les messages d'avertissement, voir comment installer un gestionnaire d'avertissement dans la documentation pour %SIG ou warn.

Une solution triviale est d'utiliser un gestionnaire d'avertissement trivial dans votre bloc eval.

eval { 
    local $SIG{__WARN__} = sub { }; 
    ... 
}; 

Voir aussi: perlfaq7: How do I temporarily block warnings?

Answer 3

Ce n'est pas une bonne idée de piéger et ignorer les erreurs, si elles sont fatales ou non. En outre, il est conseillé de vérifier $ @ dans la façon dont vous le faites (voir les questions sur ce site au sujet des exceptions de Perl pour de meilleures façons de piéger les exceptions, j'utilise Try::Tiny ci-dessous, qui est sans doute la route le plus léger de tous) .

Au lieu de procéder à une opération DBI lorsqu'un plus tôt on aurait pu échoué, vous devez vérifier les conditions d'erreur à chaque étape:

use strict; use warnings; 
use Try::Tiny; 

try { 
    my $sth = $dbh->prepare($sql) or die $dbh->errstr; 
    $sth->execute or die $sth->errstr; 
} catch { 
    print "got error $_\n"; 
    # return from function, or do something else to handle error 
}; 

Et rappelez-vous, toujoursuse strict; use warnings; dans tous les modules et script. Votre extrait de code suggère que vous ne le faites pas encore.