如何在 Perl 中通过反引号或系统获取文本

Question

我想在 Perl 中调用一个 EXE 文件，它执行一些操作

我尝试通过 backtick 和 system 调用 exe 文件，但在这两种情况下我只得到返回值

exe文件将一些文本打印到控制台上。是否也可以捕获它？

我查看了这个变量 ${^CHILD_ERROR_NATIVE} 但我只得到返回值而不是文本

我正在使用 Perl 5.14

提前致谢

Answer 1

应用程序可能不会将其输出打印到 STDOUT，而是打印到 STDERR，而反引号运算符不会捕获该输出。要捕获两者，您可以使用以下命令：

my $binary = 'foo.exe';
my $output = `$binary 2>&1`;

为了进行更精细的捕获，您可能需要求助于 IPC ::Open3，您可以使用它“控制”进程的所有流（<​​code>IN、OUT 和 ERR）。

Answer 2

我曾经从 perl 脚本执行命令并以这种方式捕获输出

sub execute_command() {
  my($host) = @_;
  open(COMMAND_IN, "your_command |"); 
  while (<COMMAND_IN>) 
  { #The COMMAND_IN will have the output of the command
    #Read the output of your command here...
    $ans = $_;
  }
  close(COMMAND_IN);
  return $ans;
}

检查它是否对您有帮助

Answer 3

我推荐 capture 和 capture_err 函数rel="nofollow">Scriptalicious。

use Scriptalicious qw(capture);

my $output = capture('my_command', 'arg');