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

Question

我想将 (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.

中捕获相同的 "no such file or director"

示例 2，

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

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

Answer 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 意味着 Nothing to update。这是 zip 的设计决定，如果存档中没有要更新的文件，则以 12 退出。然后那个出口被打包成一个两字节的数字（在高位字节），然后 that 被返回，这就是我在 $?.[=48= 中得到的]

一般故障模式，来自 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 只有运行一个命令，它不知道哪里出了问题。它只是返回命令的退出代码，以供查看。

或者，您可以修改命令以获取 STDOUT 上的 STDERR，见下文。

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 语法，如上所述。它还有很多内容，所以请查找它（但这应该可以正常工作）。大多数情况下，它与退出代码描述中的消息相同。

你在代码中的检查很好，第一道防线：当运行宁外部命令时，应该总是检查$? ，为此不需要触及运行的命令。

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

unable to capture stderr while performing openssh to a variable- perl

perl

openssh

stderr