Динамический захват вывода системной команды в Perl

Question

В моем коде Perl я использую системную команду для запуска скрипта. Я использую Gtk2 :: Perl и Glade для создания пользовательского интерфейса. Мне нужен вывод команды для захвата не только на консоль (что делает Capture::Tiny), но и TextView в моем графическом интерфейсе.

system("command"); 

$stdout = tee{       #This captures the output to the console 
system("command"); 
}; 

$textbuffer->set_text($stdout);  #This does set the TextView with the captured output, but *after* the capture is over. 

Любая помощь была бы принята с благодарностью.

Answer 1

Если вы пытаетесь «захват» на выходе system вызова, то я хотел бы предложить наилучший подход заключается в использовании open и открыть дескриптор к процессу:

my $pid = open (my $process_output, '-|', "command"); 

Тогда вы можете прочитать $process_output точно так же, как и дескриптор файла (помните, что он заблокируется, если нет ожидающего ввода-вывода).

while (<$process_output>) { 
    print; 
} 

close ($process_output); 

Вы можете «фальшивый» поведение system через waitpid системного вызова:

waitpid ($pid, 0); 

Это будет «блок» основной программы, пока системный вызов не завершен.

Answer 2

То, что вы хотите сделать, невозможно с помощью system(). System() вилки нового процесса и ждет его завершения. Затем ваша программа продолжается (см. manual). Вы можете запустить подпроцесс (выполнив все, что было сделано для system()) и прочитайте этот раздел «stdout» подпроцесса. Например, вы можете получить вдохновение здесь: redirecting stdin/stdout from exec'ed process to pipe in Perl