安装Net::SSH::Perl（更好用的模块Net::OpenSSH）

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› Perl›Perl教程

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

Net::SSH::Perl

这个模块，安装起来需求比较多，使用cpan安装的话，还有一些问题，比如比较常见的：

卡在

Math::BigInt: couldn't load specified math lib(s), fallback to Math::BigInt::Calc at /usr/lib/perl5/site_perl/5.8.8/Crypt/DH.pm line 6

这时使用ctrl+c，cpan会跳过这个模块，继续安装下面的模块，然后到cpan.org下载crypt::DH模块，进行手动安装，就可以了。

这个模块儿本身有些问题，因为在使用过程中会报错：

Math::BigInt: couldn't load specified math lib(s), fallback to Math::BigInt::Calc at /usr/lib/perl5/site_perl/5.8.8/Crypt/DH.pm line 6

需要打开/usr/lib/perl5/site_perl/5.8.8/Crypt/DH.pm，修改第六行，将use Math::BigInt lib => "GMP,Pari"; 其中的lib改为try，即可正常使用

解决链接远程主机慢的问题

网上说要安装三个东西：
YAML
Math::BigInt
Math::BigInt::GMP

之前已经安装完 YAML 和 Math::BigInt 了，在装完 Math::BigInt::GMP 后测试，在与远程主机的连接过程中，速度明显提升（连接到远程主机后操作时间不变）。

这个模块，发现一个问题，无法支持在私钥验证情况下的密码输入，可以选择Net::OpenSSH这个模块，依赖模块IO::Pty，基本也可以完成上面的功能。

#!/usr/bin/perl
use strict;
use Net::OpenSSH;
my $host='www.xxx.com';
my $user='name';
my $passphrase='12345';
my $key = '/root/.ssh/centos/id_rsa';
my %param=(
    user => $user,
    passphrase => $passphrase,
    key_path => $key,
    timeout => 10,
    port => '22'
    );
my $ssh = Net::OpenSSH->new($host,%param);
#my ($rout, $pid) = $ssh->pipe_out("cat abc");
my ($stdout,$stderr) = $ssh->system('df -h');
print $stdout;