Net :: SSH :: Perlを使ってSSHコマンドを実行するには？

Question

私は成功しNet::SSH::Perlモジュールをインストールするために管理している場合、私は知らないが、私は次のコードを実行することができるように見えることはできません。

my $ssh = Net::SSH::Perl->new($remote_host); 
$ssh->login($username, $password); 
print "login done", "\n"; 
my ($out, $err, $exit) = $ssh->cmd($cmd); 
print "$out", "\n"; 

私はログインできていますが、$outを印刷することはできません。このエラーが発生し続ける：

Use of uninitialized value $out in string at test_ssh.pl line 28. 

28行目はprint "$out", "\n";を指しています。

私はCygwinでこのコードを実行しています。私は今どうすればいい？

EDIT： 私はmy $ssh = Net::SSH::Perl->new($remote_host, options => ["Debug yes"]);を実行したときに、私は次のようなエラーMSGを得た：

Use of uninitialized value $out in string at test_ssh.pl line 29 (#1) 
    (W uninitialized) An undefined value was used as if it were already 
    defined. It was interpreted as a "" or a 0, but maybe it was a mistake. 
    To suppress this warning assign a defined value to your variables. 

    To help you figure out what was undefined, perl will try to tell you the 
    name of the variable (if any) that was undefined. In some cases it cannot 
    do this, so it also tells you what operation you used the undefined value 
    in. Note, however, that perl optimizes your program and the operation 
    displayed in the warning may not necessarily appear literally in your 
    program. For example, "that $foo" is usually optimized into "that " 
    . $foo, and the warning will refer to the concatenation (.) operator, 
    even though there is no . in your program. 

EDIT2： ここに私の完全なコード

use strict; 
use warnings; 
use Net::SSH::Perl; 

my $remote_host = '<host ip address>'; 
my $password = 'pass'; 
my $username = 'user'; 
my $cmd   = 'copy run tftp:<my own ip address>'; 

warn "Starting SSH Services:..."; 
my $ssh = Net::SSH::Perl->new($remote_host, debug => 1); 
print "done", "\n"; 

warn "Starting Login:..."; 
$ssh->login($username, $password); 
print "login done", "\n"; 

warn "Starting command:..."; 
#$ssh->cmd($cmd); 
#my($stdout, $stderr, $exit) = $ssh->cmd($cmd); 
my ($out, $err, $exit) = $ssh->cmd($cmd); 
print "$out", "\n"; 

「印刷 "$アウト" のエラーメッセージがあります、 "\ n"; "ライン：

<Computername>: channel 1: new [client-session] 
<Computername>: Requesting channel_open for channel 1. 
<Computername>: Entering interactive session. 
<Computername>: Channel open failure: 1: reason 4: 
Use of uninitialized value $out in string at test_ssh.pl line 29. 

LAST編集：私は代わりにネットワークデバイスにSSH経由でログインするネット::アプライアンス::セッションを使用することにしました。 Net :: SSH :: Perlよりも使い方が簡単です。

Answer 1

コードをさらに表示してください。 $cmdの値は何ですか？

loginメソッドは、ログインを実行しません。つまり、cmdコールごとに接続が設定されたときに使用されるユーザー名とパスワードが格納されるだけです。

デバッグメッセージを有効にする正しい方法は、これはあなたを与える言うべきcmdメソッドからトレース情報を、とりわけ

Sending command: xxx 
Entering interactive session. 

とあなたについてのいくつかの手がかりを与える必要があります

my $ssh = Net::SSH::Perl->new($remote_host, debug => 1); 

です何がうまくいかない。

---

デバッグ出力に問題が表示されます。 SSH2.hを見ると、オープン失敗の理由4はSSH2_DISCONNECT_HOST_AUTHENTICATION_FAILEDです。あなたのユーザー名とパスワードが間違っています。

Answer 2

Net :: SSH :: Perlは、対話型のパスワード入力または公開鍵を介してのみ、ユーザー名/パスワードによるログインをサポートしていません。詳細については、この記事を参照してください。

http://www.perlmonks.org/?node_id=590452