Сообщество Чайников

Вопрос

Какой Perl-командой можно перенаправить STDERR в STDOUT?

Ответ

Если скрипт выдает HTML:

BEGIN {
$| = 1; # autoflush
print "Content-type: text/html\n\n";
$| = 0;
open (STDERR, ">&STDOUT");
}

Если картинку — тогда так:

BEGIN {
$SIG{'__DIE__'} = $SIG{'__WARN__'} = sub {
( $errlog_filename = $ENV{'SCRIPT_FILENAME'} ) =~ s/\w+$/errlog/;
if ( open( ERRLOG, ">>$errlog_filename" )) {
print ERRLOG $_[0];
close ERRLOG;
}
};
}

Lena