如何在Perl中运行外部命令并捕获其输出？

Question

我是新来的Perl，想知道的方式来运行一个外部命令（称之为prg）在下列情况：

1. 运行prg，获得它的唯一stdout。
2. 运行prg，仅得到其stderr。
3. 运行prg，分别得到它的stdout和stderr。

Answer 1

您可以使用backtics来执行您的外部程序并捕获它的stdout和stderr。

默认情况下，反引号丢弃stderr并返回只有外部program.So

$output = `cmd`; 

将捕获程序CMD的stdout并丢弃stderr的stdout。

只捕获stderr你可以使用shell的文件描述符：

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

同时捕获stdout和stderr你可以这样做：

$output = `cmd 2>&1`; 

使用上面你不能以从stdout区分stderr。为了separte stdout从stderr既可以重定向到一个单独的文件和读取文件：

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

Answer 2

在大多数情况下，你可以使用qx//运营商（或反引号）。它插入字符串并使用shell执行它们，因此您可以使用重定向。

• 要捕获一个命令的标准输出（STDERR不受影响）：

  $output = `cmd`; 
  

• 要捕获一个命令的STDERR和STDOUT在一起：

  $output = `cmd 2>&1`; 
  

• 要捕获一个命令的标准错误，但是却丢弃其STDOUT（订购在这里很重要）：

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

• ，以便捕捉到STDERR但离开其STDOUT出来老STDERR交换命令的STDOUT和STDERR：

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

• 阅读这两个命令的标准输出和单独STDERR，最简单的方法分别重定向他们的文件，然后从这些文件中读取当程序进行：

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

Answer 3

您可以使用IPC::Open3或IPC::Run。另外，从perlfaq8读How can I capture STDERR from an external command。