Как очистить вывод в backticks В Perl?

Question

Если у меня есть это приложение PERL:

print `someshellscript.sh`; 

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

Похоже, что Perl распечатает только результат someshellscript.sh, когда он будет завершен, есть ли способ сделать выходной поток в середине выполнения?

Answer 1

То, что вы, вероятно, хотите сделать что-то вроде этого:

open(F, "someshellscript.sh|"); 
while (<F>) { 
    print; 
} 
close(F); 

Выполняется someshellscript.sh и открывает трубу, которая считывает ее выход. Цикл while считывает каждую строку вывода, сгенерированную скриптом, и печатает его. Дополнительную информацию см. На странице документации open.

Answer 2

Проблема заключается в том, что экранирование с backticks сохраняет ваш скрипт в строку, которую вы затем печатаете. По этой причине не было бы способа «промыть» печать.

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

system "someshellscript.sh";