Wie kann ich verhindern, dass ein Fehler in meinem Perl-Skript das Skript beendet?

Question

Ich habe ein einfaches Perl-Skript, das als Linux-Daemon mit einer Endlosschleife läuft. Es verbindet sich alle 10 Sekunden mit einer Datenbank, um einen Prozess auszuführen.

while (1) 
{ 
    # THIS LINE WILL KILL THE SCRIPT IF IT FAILS 
    my $DB=DBI->connect("dbi:Sybase:server=myserver","user","password"); 
    . . . do something . . . 
    sleep (10); 
} 

Ich habe zwei Fragen:

• Wenn die DB nicht verfügbar ist, wie ich das Skript halten kann ausgeführt werden?
• Kann ich einen Ausnahme-Handler hinzufügen, um mir eine E-Mail zu senden oder einen Fehler zu protokollieren?

Answer 1

Diese in Intervallen von 10 Sekunden zu verbinden versucht, nicht alle 10 Sekunden, als William Pursell bemerkt:

while (1) 
{ 
    # THIS LINE WILL KILL THE SCRIPT IF IT FAILS 
    my $DB; 
    eval { 
     $DB = DBI->connect("dbi:Sybase:server=myserver","user","password"); 
    }; 
    if (my $ex = $@) { 
     warn $ex; 
     next; 
    } 
    # do something with $DB 
    continue { 
     sleep 10; 
    } 
} 

Siehe auch Object Oriented Exception Handling in Perl, is it worth it? und How can I cleanly handle error checking in Perl?

Answer 2

Von Programming Perl:

sub try (&@) { 
    my($try,$catch) = @_; 
    eval { &$try }; 
    if ($@) { 
     local $_ = $@; 
     &$catch; 
    } 
} 
sub catch (&) { $_[0] } 

try { 
    die "phooey"; 
} catch { 
    /phooey/ and print "unphooey\n"; 
}; 

Answer 3

Ich bin ein wenig verwirrt:

my $DB=DBI->connect("dbi:Sybase:server=myserver","user","password"); 

sollte normalerweise nicht sterben, wenn es nicht verbinden kann. Normalerweise sollte ein Fehlercode statt eines db-handle zurückgegeben werden. Nur wenn du RaisError benutzt, wird es sterben/eine Ausnahme auslösen.

my $DB=DBI->connect("dbi:Sybase:server=myserver","user","password", 
         { RaiseError => 1}); 

Siehe DBI man-page