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

Question

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

我猜如果我得到一个可以与Perl 5.8一起使用的脚本，那么它也将适用于5.10。 我在Net::SSH:Any A上取得了一些进步，因为它看起来可以在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的建议中弄清楚了。 我在perl中发现从外部* nix命令获取STDOUT，STDERR和响应代码，这向我展示了如何更新代码以获取stderr，如下所示：

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

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