Могу ли я отправить STDOUT и STDERR в файл журнала, а также на экран в Win32 Perl?

Я искал в Интернете и нашел несколько хороших решений для распространения STDOUT в 2 разных местах. Как в файл журнала, а также на экран в то же время. Вот один пример:

use IO::Tee;
my $log_filename = "log.txt";
my $log_filehandle;
open( $log_filehandle, '>>', $log_filename )
  or die("Can't open $log_filename for append: $!");
my $tee = IO::Tee->new( $log_filehandle, \*STDOUT );
select $tee;

Но это решение оставляет STDERR доступным только к экрану, и я хочу, чтобы STDERR переходил как на экран, так и в тот же файл журнала, в который STDOUT регистрируется. Это вообще возможно?

Моя задача - зарегистрировать процесс сборки, но я также хочу видеть его на экране моей IDE как обычно. И регистрация сообщений об ошибках так же важна, как регистрация счастливых сообщений. И регистрация ошибок в отдельном файле журнала не является хорошим решением.

Ответы на вопрос(8)

Ваш ответ на вопрос