Как сбросить вывод в backticks In 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

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

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

system "someshellscript.sh";