просто тройник в Perl без вилки, файл :: Tee или трубопровод для tee

Question

Есть ли простой способ в Perl для отправки STDOUT или STDERR в несколько мест без разветвления с использованием File :: Tee или открытия трубы до/USR/бен/тройник?

Наверняка есть способ сделать это в чистым perl без написания 20 + строк кода, не так ли? Что мне не хватает? Аналогичные вопросы были заданы, как здесь на так и в других местах, но ни один из ответов не удовлетворяют требованиям, которые я не должны

• вилки
• использовать File :: Tee/IO :: Tee/другой модуль + зависимости код которых след 1000x больше, чем мой фактический сценарий
• открыть трубу фактической команды тройника

Я могу видеть использование основного модуля в качестве компромисса здесь, но на самом деле это то, что нужно?

Answer 1

Похоже, что я могу просто сделать это:

BEGIN { 
    open my $log, '>>', 'error.log' or die $!; 

    $SIG{__WARN__} = sub { print $log @_ and print STDERR @_ }; 

    $SIG{__DIE__} = sub { warn @_ and exit 1 }; 
} 

Это просто и эффективно посылает большинство сообщения об ошибках как к исходному STDERR и в лог-файл (по-видимому вещи плененного в Eval не показать, я сказал). Таким образом, есть недостатки в этом, упомянутые в комментариях. Но, как упоминалось в первоначальном вопросе, необходимость была конкретной. Это не предназначено для повторного использования. Это для простого, маленького скрипта длиной не более 100 строк.

Если вы ищете способ сделать это, что это не «рубить», следующий был адаптирован из http://grokbase.com/t/perl/beginners/096pcz62bk/redirecting-stderr-with-io-tee

use IO::Tee; 

open my $save_stderr, '>&STDERR' or die $!; 

close STDERR; 

open my $error_log, '>>', 'error.log' or die $!; 

*STDERR = IO::Tee->new($save_stderr, $error_log) or die $!;