对变量执行 openssh 时无法捕获 stderr - perl

Question

我想捕获（ssh->捕获）到变量后主机上显示的标准错误。

例如当我尝试时：

  use Net::OpenSSH;

my $ssh = Net::OpenSSH->new($host);
my $out=$ssh->capture("cd /home/geek");
 $ssh->error and
die "remote cd command failed: " . $ssh->error;

输出是：

 child exited with code 1 at ./change_dir.pl line 32

我看不出错误是什么。我在终端上没有得到这样的文件或目录。我想在 $out 中捕获相同的“没有这样的文件或导演”。

示例2，

my ($stdout,$stderr)=$ssh->capture("cd /home/geek");
if($stderr)
print"Error = $stderr";
else
print "$stdout"

我看到打印了“Error=”，但在屏幕上没有看到 $stderr。 我看到 $stdout 成功打印，但 print $stderr 不打印，仅打印“Error=”。

Answer 1

当发生错误时，很可能 not 会出现在

STDOUT

中，如果它出现在

STDERR

中，你就不会发现它。您需要通过以下方式获取应用程序的退出代码。 （鉴于我现在才看到的问题的更新：请参阅末尾以了解如何获取 STDERR。）

在使用

capture

方法之后，您要检查

$?

是否有错误（请参阅 Net-OpenSSH）。解压它以获取由

$ssh

实际运行的内容返回的退出代码，然后查看该应用程序的文档以了解该代码的含义

$exit_code = $?;
if ($exit_code) {
    $app_exit = $exit_code >> 8; 
    warn "Error, bit-shift \$? --> $app_exit";
}

要调查的代码是

$app_exit

。

举个例子。 我在项目中使用

zip

，偶尔会发现

3072

的错误（即

$?

）。 当按照上面的方式解压时，我得到

12

，这是

zip

的实际出口。 我查找了它的文档，它很好地列出了它的退出代码，并且

12

意味着 没有要更新的。这是

zip

的设计决策，如果存档中没有要更新的文件，则使用

12

退出。 然后该出口被打包成一个两字节数字（在高字节中），并且返回 that，所以这就是我在

$?

中得到的内容。

一般故障模式，来自 Perl 文档中的 system

if    ($? == -1) { warn "Failed to execute -- " }
elsif ($? & 127) { 
    $msg = sprintf("\tChild died with signal %d, %s coredump -- ",
        ($? & 127),  ($? & 128) ? 'with' : 'without');
    warn $msg;
} else { 
    $msg = sprintf("\tChild exited with value %d -- ", $? >> 8);
    warn $msg;
}

实际的退出代码

$? >> 8

由运行的任何内容提供，因此其解释取决于该应用程序。 您需要查看其文档，并希望记录其退出代码。

---

请注意，

$ssh->error

似乎是为这项任务而设计的。 来自模块的文档

my $output = $ssh->capture({ timeout => 10 }, "echo hello; sleep 20; echo bye");
$ssh->error and warn "operation didn't complete successfully: ". $ssh->error;

打印的错误需要进一步调查。文档没有说明它是什么，但我期望上面讨论的解压代码（问题更新表明了这一点）。这里

$ssh

只运行一个命令，它不知道出了什么问题。它只是返回命令的退出代码，以供查看。

或者，您可以修改命令以获取

STDERR

上的

STDOUT

，请参见下文。

---

capture

方法相当于 Perl 的反引号 (

qx

)。 有很多关于如何从反引号中获取

STDERR

的内容，Perl 自己的 FAQ 在 perlfaq8 中写得很好。这里的复杂之处在于，这不是 qx

 ，而是一个模块的方法，更重要的是，它运行在另一台机器上。然而，“输出重定向”方法应该仍然可以在不进行修改的情况下工作。  可以编写该命令（由 

$ssh

 运行），以便将其 

STDERR

 重定向到其 

STDOUT

。

$cmd_all_output = 'your_whole_command 2>&1';
$ssh->capture($cmd_all_output);

现在您将在终端上看到打印在

STDOUT

 上的错误（“没有这样的文件或目录”），因此它将出现在您的 

$stdout

 中。请注意，必须使用 

sh

 shell 语法，如上所述。还有很多内容，所以请查一下（但这应该可以正常工作）。大多数时候，它与退出代码描述中的消息相同。

代码中的检查是好的，第一道防线：在运行外部命令时应该

always检查$?

，为此，不需要触及要运行的命令。

Answer 2

要捕获 stderr，请使用

capture2()

 返回 STDOUT 和 STDERR。