Manipulierung von __DIE__ und __WARN__ - #77248 (Allgemeines zu Perl)

Strat

2007-06-05 14:21

User since
2003-08-04
5246 Artikel
ModeratorIn

eigentlich nichts; nur sollte man auch direkt auf STDERR (oder STDOUT) mitbekommen, wenn ein programm stirbt, und nicht erst aus einer Logdatei.

Ich verwende im Warn- oder Die-handler gerne auch eine Art Backtrace, damit ich leichter feststellen kann, worueber die aktuelle Warnung entstanden ist, z.B.

Code: (dl )

sub DieHandler {
    print STDERR "Died: @_\n\n";

    print STDERR "Backtrace:\n\n";
    my $count = 0;
    while( $count > -1 ) {
        my ($package, $filename, $line, $sub) = caller($count);
        last unless defined $line;
        printf STDERR "%02i %5i %-50s %-20s\n", $count++, $line, $sub, $filename;
    } # while

    die "\nDied\n";
} # DieHandler

oder so aehnlich

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/