perl - 在对变量执行 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 中捕获相同的“没有这样的文件或目录”。

例子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

当错误发生时，它很可能不在 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 被返回，这就是我在 $? 中得到的。

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

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 自己的 FAQ 已经很好地写好了 in perlfaq8 .这里的一个复杂问题是，这不是 qx 而是一个模块的方法，更重要的是，它在另一台机器上运行。但是，“输出重定向”方法应该仍然可以在不进行修改的情况下工作。可以编写命令(由 $ssh 运行)，以便将其 STDERR 重定向到其 STDOUT。

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

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

您在代码中的检查很好，第一道防线:在运行外部命令时，应该始终检查$?，为此命令无需触摸即可运行。