perl リモートでコマンド実行結果取得

質問

perl　初心者です。

Perlでリモートログイン後grep結果を取得する方法で分からないことがあり質問しました。
rootユーザで実行するPPP.plスクリプト内で、他のサーバにsshでログイン後grepの結果を取得しようと考えていますが、rootユーザでPPP.plを実行しスクリプト内でsshを実行するとパスワードを聞かれてしまいます。
そこで、他のユーザAAAでPPP.plを実行し、sshを実行するとパスワードは聞かれない設定になっているそうです。（詳細は分かりませんが）
そこで、実現方法について下記のように考えていますが、他の方法、sshのオプション等他の考えが、あれば教えてください。確認する環境がなくて実行していませんのであっているかも分かりません。

PPP.pl実行サーバ：server1
ssh先のサーバ：server2
PPP.plの実行ユーザ：ROOT
パスワードが聞かれないserver1のユーザ：AAA
server2のログインユーザ：AAA
※PPP.plの実行ユーザはrootから変更はできません
---------------------------------------
#ユーザAAAに変更
system("su - AAA");

#server2のgrep結果取得
my @rtn_grep = `ssh -l AAA server2 grep test /var/log/msg.log`;
if($? != 0){
exit;
}
## grep結果を参照
XXXX

#rootユーザに戻る
system("exit");
--------------------------------

以上です。宜しくお願い致します。

回答No.1

root139 · ベストアンサー

SSHでパスワード無しでログインするには、秘密鍵を作ってそれを使う方法は有ります。
http://www.atmarkit.co.jp/flinux/rensai/linuxtips/447nonpassh.html

一方 Perl でSSH接続するためのライブラリとして Net::SSH::Perl や Net::SSH2 や Net::OpenSSH などが在りますので、それらを使う方法も有ります。

Net::SSH::Perl が古くから使われているので資料は豊富ですが、 Net::SSH2 や Net::OpenSSH の方が使いやすいという評価も有るようです。

http://homepage3.nifty.com/hippo2000/perltips/net/SSH.htm
http://search.cpan.org/~rkitover/Net-SSH2-0.40/lib/Net/SSH2.pm
http://search.cpan.org/~salva/Net-OpenSSH-0.57/lib/Net/OpenSSH.pm

お礼

ありがとうございます。
perl にもsshの関数があるんですね。