====== PerlからSSH ======
===== yum（DAGリポジトリ）でインストール =====


DAGのrepoを追加
<code>
rpm -Uhv http://apt.sw.be/redhat/el5/en/i386/rpmforge/RPMS/rpmforge-release-0.3.6-1.el5.rf.i386.rpm
</code>

Net:SSHをインストール
<code>
yum --enablerepo=rpmforge install perl-Net-SSH-Perl
</code>


yumでインストールされないモジュールをインストール
<code>
perl -MCPAN -e shell
install Math::BigInt
install Math::BigInt::GMP
</code>

サンプルコード
<code>
#!/usr/bin/perl
use strict;
use Net::SSH::Perl;
use Net::SSH::Perl::Constants qw(:msg);

my $ssh = Net::SSH::Perl->new("HOSTNAME");
$ssh->login("USERNAME", "PASSWORD");
my ($stdout, $stderr, $exit) = $ssh->cmd('cat /etc/redhat-release');
print $stdout;
$ssh->cmd("exit");
</code>

しかし、この状態では2度目にコードを実行したらエラーとなるのです

ライブラリを修正して対応するとです
<code>
cd /usr/lib/perl5/site_perl/5.8.8/Net/SSH/
cp -p Perl.pm Perl.pm.ORG
</code>


237行目付近に
<code>
if ($! =~ /Address already in use/i) {
</code>

というコードがありますので以下の通り書換えます。
<code>
#if ($! =~ /Address already in use/i) {
if ($! =~ /(Address|The socket name is) already in use/i || $! =~ /アドレスは既に/) {
</code>

秘密鍵と公開鍵を使ってリモートのサーバーを操作する場合
サンプルコード
<code>
#!/usr/bin/perl
use strict;
use Net::SSH::Perl;
use Net::SSH::Perl::Constants qw(:msg);

my $ssh = Net::SSH::Perl->new("172.16.1.205",protocol=>'2,1' , identity_files => ['公開鍵']);
$ssh->login("USERNAME","");
my ($stdout, $stderr, $exit) = $ssh->cmd('ls /');
print $stdout;
print "ERROR:". $stderr ."\n";
print "EXIT CODE:". $exit."\n";
$ssh->cmd("exit");
</code>

さっくり実行してみると
<code>
Invalid key file type 'PEM': Base class package "Class::ErrorHandler" is empty.
    (Perhaps you need to 'use' the module which defines that package first.)
 at /usr/lib/perl5/vendor_perl/5.8.8/Convert/PEM.pm line 5
BEGIN failed--compilation aborted at /usr/lib/perl5/vendor_perl/5.8.8/Convert/PEM.pm line 5.
Compilation failed in require at /usr/lib/perl5/vendor_perl/5.8.8/Crypt/DSA/Key/PEM.pm line 5.
BEGIN failed--compilation aborted at /usr/lib/perl5/vendor_perl/5.8.8/Crypt/DSA/Key/PEM.pm line 5.
Compilation failed in require at (eval 55) line 1.
BEGIN failed--compilation aborted at (eval 55) line 1.
 at /usr/lib/perl5/vendor_perl/5.8.8/Net/SSH/Perl/Key/DSA.pm line 65
</code>
なんてエラーが出力した。

う～ん、鍵のタイプがPEMだぜ！そのタイプを使いたいなら"Class::ErrorHandler" をインストールしろやおりゃ！！

ってな事をおっしゃってるのだろうね


CPAN使ってインストールしてみる
<code>
perl -MCPAN -e shell
install Class::ErrorHandler
</code>
おっ、無事にインストール出来たみたい。

再度サンプルコードを実行したら、エラー無く実行できた（＾＾）

===== CPANからインストールする場合 =====

<code>
yum -y install gcc gmp-devel gmp expat-devel
yes '' | cpan -i Math::BigInt::GMP
yes '' | cpan -i Net::SSH::Perl
yes '' | cpan -i Math::BigInt::Pari

なんとなく、これもインストールしてみたさ
yes '' | cpan -i Test::Pod
yes '' | cpan -i Test::Pod::Coverage
</code>
こっちの場合は余分なリポジトリをインストールする必要はないのだ


ライブラリを修正して対応するとです
<code>
cd /usr/lib/perl5/site_perl/5.8.8/Net/SSH/
cp -p Perl.pm Perl.pm.ORG
</code>

===== 証明書の作成 =====
これがなけりゃ意味ないよねｗｗｗ

<code>
# ssh-keygen -t dsa -b 1024 -N ''
  パスフレーズ無しで作成してくれます
# cat /root/.ssh/id_dsa.pub >> /root/.ssh/authorized_keys
# chmod 600 /root/.ssh/authorized_keys

公開鍵は/root/.ssh/id_dsa
</code>