从perl中的external * nix命令获取STDOUT，STDERR和响应代码

4 回答

• 4

  实际上，写这个的正确方法是：

  #!/usr/bin/perl
  $cmd = 'lsss';  
  my $out=qx($cmd 2>&1);
  my $r_c=$?;
  print "output was $out\n";
  print "return code = ", $r_c, "\n";
  

  如果没有错误，你将得到'0'，如果错误，你将得到'-1' .

  回复于 2024-05-02T04:13:50+08:00
• 5

  这正是David Golden在撰写Capture::Tiny时面临的挑战 . 我认为它可以帮助您完全满足您的需求 .

  基本示例：

  #!/usr/bin/env perl
  
  use strict;
  use warnings;
  
  use Capture::Tiny 'capture';
  
  my ($stdout, $stderr, $return) = capture {
    system( 'echo Hello' );
  };
  
  print "STDOUT: $stdout\n";
  print "STDERR: $stderr\n";
  print "Return: $return\n";
  

  重读之后你可能真的希望 capture_merged 将STDOUT和STDERR加入到一个变量中，但我给出的例子很好而且很通用，所以我会留下它 .

  回复于 2024-05-02T04:13:50+08:00
• 9

  STDERR 旨在用于可能需要与 STDOUT 输出流分离的错误或消息 . 因此，我不希望任何 STDERR 来自像 less 这样的命令的输出 .

  如果你想要两个（或者任何一个）流和返回代码，你可以这样做：

  my $out=qx($cmd 2>&1);
  my $r_c=$?
  print "output was $out\n";
  print "return code = ", $r_c == -1 ? $r_c : $r_c>>8, "\n";
  

  如果命令不可执行（可能是因为你打算使用 less 而是写了 lsss ），返回代码将为-1 . 否则，正确的退出值是高8位 . 见system .

  回复于 2024-05-02T04:13:50+08:00
• 1

  这个问题经常给出的答案是使用包含shell类型重定向的命令行 . 但是，假设您要避免这种情况，并将open（）与命令和参数列表一起使用，因此您不必担心shell如何解释输入（可能部分由用户提供的值组成） . 然后不使用IPC :: Open3等软件包，以下内容将同时读取stdout和stderr：

  my ($child_pid, $child_rc);
  
  unless ($child_pid = open(OUTPUT, '-|')) {
    open(STDERR, ">&STDOUT");
    exec('program', 'with', 'arguments');
    die "ERROR: Could not execute program: $!";
  }
  waitpid($child_pid, 0);
  $child_rc = $? >> 8;
  
  while (<OUTPUT>) {
    # Do something with it
  }
  close(OUTPUT);
  

  回复于 2024-05-02T04:13:50+08:00