Net::SSH::Perlについて

質問

Net::SSH::Perlを使って、以下のようにリモートマシン上のコマンドを実行しています。

my $ssh = Net::SSH::Perl->new("host");
$ssh->login("user", "pass");
($out, $err, $exit) = $ssh->cmd("command");

"command"に失敗した場合は、$errにエラー内容が格納されますが、hostやuser、passが間違っていた場合は、Permission deniedとなって、プログラムが終了してしまいます。
hostやuser、passの間違いで$ssh->cmdを失敗した場合にエラーを取得する方法があれば教えてください。

回答No.2

Dpop · ベストアンサー

#1 です。

> eval( my($out, $err, $exit) = $ssh->cmd("df") );
> print "error: $@\n" if ($@);

ん? eval って

eval {
my($out, $err, $exit) = $ssh->cmd("df")
};
print "error: $@\n" if ($@);

って、使い方をした方が。

「実用Perlプログラミング」の５章 eval によると、こんな使い方になっています。

お礼

ありがとうございます。
なんとか、考えているものが作れそうです。

回答No.1

Dpop

試していませんが、evalに閉じ込めて実行することはできませんか?

補足

こういうことでしょうか？

eval( my($out, $err, $exit) = $ssh->cmd("df") );
print "error: $@\n" if ($@);

試して見ましたが、errorを表示せずに"Permission denied"となってしまいました。