Perl Net :: SSH2モジュールがデバイスリストで動作しない

Question

Windows Perlを初めて使用していて、にNet::SSH2を使用しようとしています。私はスクリプトを持っている問題は、デバイスリストに接続することができません。リストの最初のデバイスに接続できますが、2番目、3番目などのデバイスには接続できません。私は何かが恋しいですか？ご意見ありがとうございます。

#!\usr\bin\Perl\bin\perl 

use warnings; 
use strict; 
use NET::SSH2; 
use MIME::Base64; 

my $host = "C:/temp/devices.txt"; # input file 
my $user = "XXX"; # your account 
my $pass = "XXXXX"; # your password 64 bit mime 
my $ssh2 = Net::SSH2->new(); 
my $result = "C:/temp/result.txt"; # output file 

$ssh2->debug(1); # debug on/off 

open(List, '<', "$host") or die "$!"; 
while(<List>) { 
    chomp $_; 
    unless ($ssh2->connect("$_")) { 
     print "Unable to connect : $_\n"; 
     next; 
    } 

    my $dp=decode_base64("$pass"); 

    unless ($ssh2->auth_password("$user","$dp")) { 
     print "Invalid Password\n"; 
     exit; 
    } 

    my $chan = $ssh2->channel(); 
    $chan->exec('sh ver'); 

    my $buflen =100000; 
    my $buf = '0' x $buflen; 
    my $read = $chan->read($buf, $buflen); 

    warn 'More than ', $buflen, ' characters in listing' if $read >= $buflen; 

    open (OUTPUT, '>>', $result) or die "$!"; 
    print OUTPUT "HOST: $_\n\n"; 
    print OUTPUT "$buf\n"; 
    print OUTPUT "\n\n\n"; 
    print OUTPUT 

    $chan->close(); 
} 

close (List); 

Answer 1

認証に失敗した場合はexit（）しないでください。次のリスト項目に移動するには 'next'を使用します。

Answer 2

Net :: SSH2オブジェクトをループ内に作成する必要があります。これは、Net :: SSH2オブジェクトを使用して複数のホストに接続する（または同じホストに複数の接続を行う）ことができないためです。

Answer 3

$ ssh-> disconnect（）$ chan-> close（）;の後に呼び出します。

Answer 4

#!\usr\bin\Perl\bin\perl 
    use strict; 
    use Term::ReadKey; 
    use NET::SSH2; 
    use MIME::Base64; 
    use constant BUFLEN => 10_0000 ; 
    my $user = "XXX"; # your account 
    my $pass = "XXXX"; # your password 64 bit mime 
    my $dp=decode_base64("$pass"); 
    my $host = "C:/temp/devices.txt"; # input file 
    my $Error = "C:/temp/Error.txt"; # Error file 
    open(HOST, '<', "$host") or die "$!"; 
    open STDERR, ">", "$Error"; # open log file 
      while(<HOST>) { 
       chomp $_; 
    my $ssh2 = Net::SSH2->new(); 
    $ssh2->debug(1); # debug on/off 
      unless ($ssh2->connect("$_")) { 
      print "Unable to connect : $_\n"; 
    print STDERR "Unable to connect to $_: $!\n"; # write the error on log file 
    print STDERR 
    "*****************************************************\n\n"; 
      next; 
      } 
     print "connecting to $_\n"; 
     unless ($ssh2->auth_password("$user","$dp")) { 
     print "Invalid Password\n"; 
     exit; 
      } 
    my $chan = $ssh2->channel; 
     $chan->exec('sh int desc'); 
       my $buf; 
       my $read = $chan->read($buf, BUFLEN); 
    warn 'More than ', BUFLEN, ' characters in listing' if $read >= BUFLEN; 
    open (OUTPUT, ">", "C:/temp/$_.txt")or die "$!"; # new file for each devices 
    print OUTPUT "HOST: $_\n\n"; 
    print OUTPUT "$buf\n"; 
    print OUTPUT "\n\n\n"; 
    print OUTPUT 

    $chan->close(); 
    } 
    close HOST; 

Answer 5

は単に私の$ SSH2 =ネットを置く:: SSH2->新しいです（）; whileループの下の。