这两天为了实现远程登录折腾了两三天，先是查阅了实现方法，网上用Perl实现就有很多方法。

    1.使用Net::SSH::Perl

    2.使用Expect模块

    3.使用Net::SSH::Expect

    4.直接使用shell命令实现ssh -p port username@IP  $passwd

    这些方法中准备使用Perl的Net::SSH::Perl 模块来实现，因为网上代码有很多，而且可读性强，比如下面脚本

#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH::Perl;

my $ssh = Net::SSH::Perl->new("192.168.4.217", port => 22);
print "login\n";
$ssh->login("root", "123qwe");
print "cmd\n";
my ($stdout, $stderr, $exit) = $ssh->cmd("ls -l /tmp");
print "$stdout\n";

    但是在安装时候遇到了一系列的问题，首先明确Net::SSH,Net::SSH2,Net::Telnet与Net::SSH::Perl 模块并没有关系，连依赖都没有，我试着安了两台机器，发现Net::SSH::Perl 模块需要如下的依赖包(使用instmodsh命令可以看到安装了哪些模块):

Crypt::DES
Crypt::DH
Crypt::DSA
DCOP
Digest::HMAC
Digest::SHA
Digest::SHA1
File::Which
Math::BigInt
Math::BigInt::GMP
Math::Pari
Net::SSH::Perl
Perl

我到cpan下搜索出这些包一个一个的安装（因为CentOS主机不能联网），当然我是先运行上面那个perl脚本，才一个一个发现需要的依赖的。这里面除了Math::Pari,其他模块都可以直接这样做。

1.tar zxvf 压缩包

2.cd 目录下

3.perl Makefile.PL

4.make

5.make install

(网上很多都说需要make test ，我没有test也能正常使用，但是第一次安装的时候，test有问题则安装失败)

只有Math::Pari这个包有问题，如果直接像上面那样做，安装提示有error，网上说是缺少Pari lib包（不是一样的，需要到Pari的网站去下载，不是CPAN），网站上最新的是pari-2.5.3，安装时1 ./Configure 2 make 3 make install,一开始安装有问题，但是还是安装成功了，但是这时安装Math::Pari 模块会提示你Version too new，网上有人说是新版本不支持，我有下载了2.3.0.安装后还是有点问题，后来又下载了pari-2.1.7，我看模块的Readme里面写的需要2.1.7的包，所以下了，鼓弄半天不怎么就安装上了，后来就觉得其实不用安装pari lib包，直接解压到Math-Pari 包里，他自己就去读他要的文件了，然后不用make test，直接make install，好像就可以，因为前几次就是卡在了make test里面。

这次的环境搭建让我知道了安装模块之间有很强的依赖，如果没有安装全，就会出现 Can't locate XXX/XXX.pm 这样类似的错误，安装之前最好读下包里面的README 或者 INSTALL文件，有能力之后可以读下他的Makefile，可以学到不少。

在不同版本的Perl下，可能需要的包不一定相同，在第一次安装的机器上是Perl 5.14 ，后来又在Perl 5.8.8里安装一遍，用到了一个Digest-SHA包，而不是Digest-SHA1包，可能是低版本发行时没有SHA1.