我如何在一个Perl脚本中ssh？

我想SSH到一个服务器,并执行一个简单的命令,如“id”,并得到它的输出,并将其存储到我的主服务器上的一个文件.我没有安装 Net::SSH的权限,这将使我的任务很容易.请为我提供一个解决方案.我尝试使用back-ticks,但是我无法将输出存储在我的脚本运行的机器上.

解决方法

使用SSH远程运行命令的最佳方式是

$ssh user@host "command" > output.file

你可以使用bash或perl.但是,如果要使用perl,您可以在本地目录路径中安装perl模块,如Brain在其评论或Perl FAQ“How do I keep my own module/library directory?”中所建议的.而不是使用Net :: SSH,我建议使用Net :: SSH :: Perl与下面的例子.

#!/usr/bin/perl -w
use strict;
use lib qw("/path/to/module/");

use Net::SSH::Perl;

my $hostname = "hostname";
my $username = "username";
my $password = "password";

my $cmd = shift;

my $ssh = Net::SSH::Perl->new("$hostname",debug=>0);
$ssh->login("$username","$password");
my ($stdout,$stderr,$exit) = $ssh->cmd("$cmd");
print $stdout;