Печать STDOUT для обоих файлов и STDOUT с помощью perl

Question

В одном из сообщений ниже предлагается метод захвата STDOUT в файл без влияния на запись в STDOUT (терминал).

open my $tee, "|-", "tee E:/log.txt"; 

Для последовательности, как показано ниже:

print $tee "Log1\n"; 
print $tee "Log2\n"; 
my $input = <STDIN>; 
print $tee "Log3\n"; 

Я не вижу никакого сообщения на терминале, если я не обеспечить ввод. После того, как я печатаю любой символ и нажмите клавишу ввода, то я вижу, журналы приходят в

Log1 
Log2 
Log3 

Есть ли способ, таким образом, что я получаю первые два выхода, а затем она ожидает ввода, а затем третий выход?

Или есть способ захвата журналов STDOUT в файл, в то время как журналы STDOUT продолжают поступать на терминал тоже?

Answer 1

Установите дескриптор для небуферизованного вывода с помощью

$old_fh = select($tee); 
$| = 1; 
select($old_fh);