Печать на стандартный вывод и файл одновременно [дубликаты]

На этот вопрос уже есть ответ здесь:

Perl: печать на «дисплей» а также в файл 4 ответа

У меня есть Perl-скрипт с несколькими операторами печати. Есть ли способ, с помощью которого я могу направить все эти операторы печати в файл, а также на стандартный вывод одновременно без дублирования операторов печати?

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

Решение Вопроса

Ты можешь использоватьФайл :: тройник.

use File::Tee qw(tee);

tee STDOUT, '>>', 'some_file.out';

print "w00p w00p";

ЕслиFile::Tee недоступен, его легко смоделировать с помощью конвейера:

open my $tee, "|-", "tee some_file.out";
print $tee "w00p w00p";
close $tee;
 Melandru's Square28 мар. 2019 г., 22:47
Второй метод не работает, если файл нене существует.
 Not a machine09 мар. 2018 г., 02:17
Будьте осторожны - ни одно из решений не работает на Windows.

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