====== Net::OpenSSH ======

Perl で ssh 接続

===== 例 =====

StrictHostKeyChecking=no は既知((KnownHost))でないhostに接続する場合のエラーを抑制します。

<code perl>
# コネクト
$ssh = Net::OpenSSH->new(
    'hostname'
    ,(user => 'username',password => 'Passw0rd')
    , master_opts => [-o => "StrictHostKeyChecking=no"]
);
 
# 結果表示
say $ssh->capture('cat /etc/redhat-release');
 
# コマンド結果をキャプチャ
my @ls = $ssh->capture("ls");
$ssh->error and die "remote ls command failed: " . $ssh->error;
</code>

===== 参考 =====

[[http://search.cpan.org/~salva/Net-OpenSSH-0.60/lib/Net/OpenSSH.pm|ドキュメント]]