PL/SQL: mehr als 407 Zeichen mit "$x->func('dbms_output_get');" lesen - #147795 (Datenbanken und Verzeichnisdienste)

rosti

2011-04-16 10:45

User since
2011-03-19
3492 Artikel
BenutzerIn

Hallo,

Deine Fehlerbehandlung ist baufällig.

Code (perl): (dl )

1
2

my $dbh = DBI->connect("dbi:Oracle:[db]", '[user]', '[pw]');
$dbh->{RaiseError} = 1;

Vom Syntax her richtig, aber nimm RaiseError besser schon in connect() mit rein:

Code (perl): (dl )

        eval{
                $dbh = DBI->connect_cached(
                        $dsn, $cfg->{mysql}->{user}, $cfg->{mysql}->{pass}, 
                        {RaiseError => 1, PrintError => 0}
                );
        };
        if($@){
                # Der Layer verweigert die Verbindung
        }

Weitere Fehlerbehandlungen, die Abfrage von ReturnValues usw. erleichtern die Suche, wenn das Script mal nicht so tut, wie erwartet.

Viele Grüße,
rosti