Как получить вывод кода Perl в STDOUT / STDERR и файл в реальном времени и кросс-платформенный?

Используйте PerlIO :: Util.

Просто протестировал его под Strawberry Perl 5.12.1 32 бит, и он отлично работает, так что он будет кроссплатформенным. Приведенный ниже код работает именно так, как вы ожидаете. И поскольку он изменяет фактические дескрипторы файлов STDOUT и STDERR, любая запись в них будет автоматически выполняться.

use strict;
use warnings;

use IO::Handle;
use PerlIO::Util;
use 5.012;

for (*STDOUT, *STDERR) {
  $_->autoflush; $_->push_layer(tee => ">>stdout.txt");
}

for (1..10) {
  say $_;
  warn $_ unless $_ % 2;
}

Поскольку ни одно из представленных решений не было удовлетворительным, я сел и решил проблему самостоятельно:

Capture :: Tiny :: Extended

Если ваша программа работает на платформе Linux / Unix, вы можете использовать команду tee . Tee читает стандартный ввод и записывает в стандартный вывод и в указанный файл.

Пример:

myprogram.pl  2>&1 |tee mylog.txt

Единственное предостережение: stdout и stderr будут объединены в одном файле.

Поскольку вы используете платформу Windows, вы можете искать в Google por tee.exe, или вы можете попробовать эту минималистичную версию tee на perl:

$|=1;

if ( !$ARGV[0] ) {
        print "Usage:  some_command  \|  tee.pl [-a]  logfile\n";
        exit(1);
}

# Append mode
my $mode='>';
if ($ARGV[0] eq '-a')
{
        $mode='>>';
        shift;
}
my $LOGFILE=$ARGV[0];

while (<STDIN>) {
        print;
        open( OUT, "$mode $LOGFILE");
        print OUT $_;
        close OUT;

        # Your logic here!
}

Пример:

perl myprogram.pl  2>&1 |perl tee.pl mylog.txt

Я бы действительно попытался избежать изменения исходного кода только для того, чтобы все больше и больше захватывать STDOUT и / или STDERR, если вы собираетесь выполнять системные вызовы.

Вы можете использовать IO :: Tee.

• Сделайте специальную рукоятку-тройник.
• Отредактируйте вашу программу. Измените все распечатки на стандартный вывод на распечатки для этого дескриптора файла.
• При необходимости переопределите дескриптор файла tee для печати только в стандартный вывод или для печати в 2 или более файлов.
• Используйте `` вместо os system () для захвата вывода программ и их печати в специальном дескрипторе файла.

Если вы предпочитаете не использовать какой-либо модуль, создайте свою собственную функцию «myprint». Он может печатать в стандартный вывод и, если включен глобальный флаг, также печатать в файл журнала.

sub myPrint
{
   print @_;
   if ($LOGMODE)
   {
      open(LOGFILE, ">>$logfile");
      print LOGFILE @_;
      close LOGFILE;
   }
}