Perl实现ssh自动登录

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

一，基于单纯的密码验证的情况：
1.安装Net::SSH::Perl模块，安装方法参照Perl模块安装。
2.自动登录例子，我要用testuser用户登陆到服务器192.168.0.100执行df命令：

#!/usr/bin/perl -w
use strict;
use Net::SSH::Perl;
my $host = '192.168.0.196';
my $user = 'root';
my $password = 'pass';
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($user,$password);
my ($stdout,$stderr,$exit) = $ssh->cmd("df -h");
$ssh->cmd("exit");
if($stderr)
{
    print "ErrorCode:$exit\n";
    print "ErrorMsg:$stderr";
    }
 else
{
    print $stdout;
    }
exit $exit;

二，基于带密码（passphrase）的公钥密钥对认证的情况：
1.安装Net::OpenSSH模块，安装方法参照Perl模块安装，其实这个模块比上面那个模块更强大，密码登录的也可以用这个模块。
2.代码例子，还是用testuser用户登陆到服务器192.168.0.100执行df命令：

#!/usr/bin/perl -w
use strict; use Net::OpenSSH;
my $host = '192.168.0.100';
my $user = 'testuser';
my $passphrase = '123123';
my $key = '/home/testuser/.ssh/id_rsa';
my %param = (
             user => $user,
             passphrase => $passphrase,
             key_path => $key,
             timeout => 10
             );
my $ssh = Net::OpenSSH->new($host,%param);
my ($stdout,$stderr) = $ssh->capture2("df -h");
if($stdout){
    print $stdout;
    } else {
    print $ssh->error;
    $stderr and print $stderr;
    }

用cpan Net::SSH::Perl 安装模块并提示成功后，运行脚本出现了“Can't locate Math/Pari.pm in @INC“的错误。

运行安装 perl -MCPAN -e 'install Math::Pari' 后解决

参考：http://www.cnblogs.com/morya/archive/2011/08/09/2132822.html

N天后，发现Net::SSH::Perl奇慢无比，改用SCP模块了。。。