STDOUT umleiten: zur Compile-/Runtime in Log umleiten - #51748 (Allgemeines zu Perl)

GwenDragon

2005-02-15 20:51

User since
2005-01-17
14848 Artikel
Admin1

Auf die Signale bin ich in der Zwischenzeit auch gekommen, bevor ich nochmals bei euch nachgeschaut habe.

Sicher blöd ist die Geschichte bei eval. Es gibt Module, die, wenn das eval fehlschlägt, die reine Perl-Version einbinden anstatt des XS-Moduls. Davon habe ich auch zwei Module List::Util und Params::Validate.
Aber egal, ich weiß ja woher die Fehler kommen.

Ich habe folgenden Code eingebunden ;)

Code (perl): (dl )

BEGIN {

    sub wahn {
        open( F, ">> wahn.log" ); # ;)
        truncate( F, 0 ) if ( (stat( F ))[7] > 1024*1024 ); # > 1 MByte
        flock( F, 2 );
        my $s = localtime;
        print F $s; 
        print F ' [WARN]';
        foreach (@_) { print F " $_" }
        print F "\n";
        close ( F );
    }

    sub dai {
        open( F, ">> wahn.log" );
        truncate( F, 0 ) if ( (stat( F ))[7] > 1024*1024 ); # > 1 MByte
        flock( F, 2 );
        my $s = localtime;
        print F $s; 
        print F ' [DIE]';
        foreach (@_) { print F " $_" }
        print F "\n";
        close ( F );
    }

    $SIG{_ _DIE_ _} = \&dai;
    $SIG{_ _WARN_ _} = \&wahn;
}

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten