Как получить вывод команды немедленно?

Question

Я использую синтаксис back-ticks perl для запуска некоторых команд. Я хотел бы, чтобы выход команды записывался в файл, а также выводился на стандартный вывод. Я могу выполнить первый, добавив > в конце строки с обратным тиком, но я не знаю, как горячий, чтобы выход печатался сразу же после его создания. Если я что-то вроде

print `command`; 

вывод печатается только после завершения выполнения command.

Спасибо, Dave

Answer 1

Вы не можете сделать это с кавычку, когда они возвращаются к программе Perl только тогда, когда исполнение закончил.

Так,

print `command1; command2; command3`; 

будет ждать, пока не закончит command3 выводить что-либо.

Вы должны использовать трубу вместо обратных кавычек, чтобы иметь возможность немедленно получить результат:

open (my $cmds, "-|", "command1; command2; command3"); 
while (<$cmds>) { 
     print; 
} 
close $cmds; 

После того, как вы сделали это, то вы должны увидеть, если вы хотите или не буферизации (в зависимости от того, как непосредственного вы хотите, чтобы выход быть): Suffering from buffering?

для печати и хранения выходных, вы можете открыть() файл, чтобы написать вывод в:

open (my $cmds, "-|", "command1; command2; command3"); 
open (my $outfile, ">", "file.txt"); 
while (<$cmds>) { 
     print; 
     print $outfile $_; 
} 
close $cmds; 
close $outfile;