我如何在一个Perl脚本中ssh?
发布时间:2020-12-15 22:04:02 所属栏目:大数据 来源:网络整理
导读:我想SSH到一个服务器,并执行一个简单的命令,如“id”,并得到它的输出,并将其存储到我的主服务器上的一个文件.我没有安装 Net::SSH的权限,这将使我的任务很容易.请为我提供一个解决方案.我尝试使用back-ticks,但是我无法将输出存储在我的脚本运行的机器上. 解
我想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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |