STDOUT & ERROUT umleiten

[Naberius]

Hi,

ich würde gerne STDOUT & STDERR in ein Logfile umleiten. Wie mach ich das unter Perl am besten?? :confused:

[alligator]

HI,

hier mal ein kleine Idee für die Umleitung von stderror.

$SIG{__DIE__} = \&my_die;

sub my_die

{

open(FH,">>".$filename) || return 0;

my $time = localtime;

my $mesg = join(' ',@_) || "Oops!";

$mesg = $time . " [FATAL] " . $mesg . "\n";

flock(FH,2);

print FH $mesg;

flock(FH,8);

close(FH);

die @_;

}

## http://www.netzmafia.de/skripten/server/server4.html

cya

alligator