Perl 5.8 从 SSH 命令获取标准输出

Question

我需要创建一个可在 CentOS 5.x 和 CentOS 6.x 机器上运行的脚本。 CentOS 5.x 使用 Perl 5.8 而 CentOS 6.x 使用 Perl 5.10。目标是能够通过 ssh 进入一个有 key 交换的盒子，然后运行 ​​python -V，以确定默认版本是否为 python 2.6。

我猜如果我得到一个适用于 Perl 5.8 的脚本，它也适用于 5.10。我在 Net::SSH:Any 方面取得了一些进展，不得不放弃它，因为它看起来适用于 Perl 5.12 和更新版本。

我也尝试过 IPC::System::Simple 和 qx，但未能成功捕获输出。

我的一些失败尝试:

失败 1:

use IPC::System::Simple qw(system systemx capture capturex);
my $output = capture("/usr/bin/ssh root\@10.100.10.56 python -V");
print "out: " . $output . "\n";

失败 2:

my $output = qx(ssh root\@10.100.10.56 python -V);
print "out: " . $output . "\n";

失败 3:

my @output = qx(ssh root\@10.100.10.56 python -V);
print "@output\n";

我不确定 ssh 的调用是否在玩任何东西，我迫切需要进行完整性检查。当命令运行时，输出显示在屏幕上，但不存储在变量中，我可以对其进行子字符串检查。 $output 变量留空。如果我遗漏了什么，请告诉我。谢谢:)

Answer 1

从 ThisSuitIsBlackNot 的建议中得出结论。我找到了 Getting STDOUT, STDERR, and response code from external *nix command in perl它向我展示了如何更新我的代码以获取 stderr，如下所示:

my $output = qx(ssh root\@10.100.10.56 python -V 2>&1);
print "out: " . $output . "\n";

这给了我我所需要的。谢谢!