Как я могу запустить внешнюю команду и записать ее вывод в Perl?

Ответ 1

Вы можете использовать backtics для выполнения вашей внешней программы и захвата ее stdout и stderr.

По умолчанию обратные выходы отбрасывают stderr и возвращают только stdout внешней программы. Так

$output = `cmd`;

Захватит stdout программы cmd и отбросит stderr.

Чтобы записать только stderr, вы можете использовать дескрипторы файла оболочки как:

$output = `cmd 2>&1 1>/dev/null`;

Для захвата как stdout, так и stderr вы можете сделать:

$output = `cmd 2>&1`;

Используя вышеизложенное, вы не сможете различать stderr от stdout. Чтобы separte stdout из stderr может перенаправить оба файла в отдельный файл и прочитать файлы:

`cmd 1>stdout.txt 2>stderr.txt`;

Ответ 2

Вы можете использовать IPC::Open3 или IPC::Run. Кроме того, прочитайте Как я могу захватить STDERR из внешней команды из perlfaq8.

Ответ 3

В большинстве случаев вы можете использовать оператор qx// (или обратные ссылки). Он интерполирует строки и выполняет их с оболочкой, поэтому вы можете использовать перенаправления.

• Для захвата команды STDOUT (STDERR не изменяется):

  $output = `cmd`;
  

• Чтобы захватить команду STDERR и STDOUT вместе:

  $output = `cmd 2>&1`;
  

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

  $output = `cmd 2>&1 1>/dev/null`;
  

• Чтобы обменять команду STDOUT и STDERR, чтобы захватить STDERR, но оставить STDOUT для выхода из старого STDERR:

  $output = `cmd 3>&1 1>&2 2>&3 3>&-`;
  

• Чтобы прочитать как команду STDOUT, так и ее STDERR отдельно, проще всего перенаправить их отдельно к файлам, а затем прочитать из этих файлов, когда программа будет выполнена:

  system("program args 1>program.stdout 2>program.stderr");