イイ!! プログラミング Blog

Net::SSH::Perlモジュールを使って、PerlからSSHを叩く。

たくさんのサーバに対して、同様の操作をしたい場面は多い。
コマンドを発行するだけならシェルスクリプトでも良いが、Perlの豊富なモジュールと連携できるのが嬉しい。

Net::SSH::Perl の入手

ここ(CPAN)からダウンロードできる。
http://search.cpan.org/~dbrobins/Net-SSH-Perl-1.28/lib/Net/SSH/Perl.pm

サンプルコード

パスワード認証を使って複数のサーバにログインして、dfコマンドを実行する。

 use strict;
 use Net::SSH::Perl;
 use IO::Handle;

 my @host = ("host1", "host2");

 foreach my $ahost (@host) {
     ssh_df($ahost);
 }

 sub ssh_df($) {
     my $host = shift;
     my $ssh = Net::SSH::Perl->new($host);
     $ssh->login("USER", "PASS");
     print $ssh->cmd("df");
     $ssh->cmd("exit");
 }

参考文献

この投稿は 2006 年 1 月 21 日 土曜日 12:44 AM に perl カテゴリーに公開されました。 この投稿へのコメントは RSS 2.0 フィードで購読することができます。 現在コメントは受け付けておりませんが、ご自分のサイトからトラックバックを送ることはできます。