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