Если у меня есть это perl-приложение:
print `someshellscript.sh`;
который печатает кучу материала и занимает много времени, как я могу напечатать этот вывод в середине выполнения сценария оболочки?
Похоже, что Perl будет печатать результат someshellscript.sh только после его завершения, есть ли способ сделать вывод чистым в середине выполнения?
Вероятно, вы хотите сделать что-то вроде этого:
open(F, "someshellscript.sh|");
while (<F>) {
print;
}
close(F);
Это запускает someshellscript.sh и открывает канал, который считывает его вывод. Цикл while считывает каждую строку вывода, сгенерированную сценарием, и печатает ее. Дополнительную информацию см. на странице документации open.
Проблема здесь в том, что экранирование с помощью обратных кавычек сохраняет ваш скрипт в строку, которую вы затем печатаете. По этой причине не было бы никакого способа «смыть» печатью.
Использование команды system() должно непрерывно печатать вывод, но вы не сможете зафиксировать вывод:
system "someshellscript.sh";
