在对变量 perl 执行 openssh 时无法捕获 stderr答案

【问题标题】：unable to capture stderr while performing openssh to a variable- perl在对变量 perl 执行 openssh 时无法捕获 stderr
【发布时间】：2016-06-06 05:53:15
【问题描述】：

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

例如当我尝试时：

  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 没有打印只有“错误=”被打印。

【问题讨论】：

编辑了问题。 :)
您可以使用$ssh -> error。这有什么问题？

标签： perl stderr openssh

【解决方案1】：

发生错误时，很可能不会出现在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 自己的常见问题解答中很好地写了in perlfaq8。这里的复杂之处在于这不是qx，而是一个模块的方法，更重要的是，它运行在另一台机器上。但是，“输出重定向”方法应该仍然可以在没有修改的情况下工作。可以编写命令（由$ssh 运行），以便将其STDERR 重定向到其STDOUT。

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

现在您将收到您在终端上看到的错误（“没有这样的文件或目录”）打印在STDOUT 上，因此它将在您的$stdout 中结束。请注意，必须使用sh shell 语法，如上。它还有更多内容，所以请查一下（但这应该可以正常工作）。大多数情况下，它与退出代码描述中的消息相同。

您在代码中的检查是好的，第一道防线：在运行外部命令时应该始终检查$?，为此无需触及要运行的命令.

【讨论】：