Question

I am new to Windows Perl and I am trying to use Net::SSH2 on Strawberry Perl. the issue I have the script is unable to connect to device list. I can connect to the first device on the list but unable to connect to 2nd, 3rd so on. did I miss anything. thanks for any suggestion.

#!\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

Don’t exit() on an authentication failure; use ‘next’ to move to the next List item.