Невозможно S SH до F5 LoadBalancer через Perl - PullRequest
Новая
       24

Невозможно S SH до F5 LoadBalancer через Perl

1 голос
/ 28 февраля 2020

Я пытаюсь подключиться к распределителю нагрузки F5 через perl модуль Net :: SSH2. Я не могу выдать ошибку аутентификации, тогда как с теми же учетными данными я могу s sh на устройство через замазку. Я поделился Кодексом и ошибкой ниже для справки. Может кто-нибудь, пожалуйста, помогите мне с этим. 

use Net::SSH2; 
$deviceipF5 = "x.x.x.x";
$username = "xx";
$encrPass = "xx";


my @deviceipF5List = split(',',$deviceipF5);
if(@deviceipF5List ne 0)
    {
        foreach my $deviceipF5(@deviceipF5List)
        {
            my @deviceipF5List1 = split (':', $deviceipF5); 
            my $ssh2 = Net::SSH2->new();
            $ssh2->debug(0);
            $ssh2->connect($deviceipF5List1[0]) or die $!;
            $ssh2->auth(username => $username, password => $encrPass) or die "Unable to login \n".$ssh2->die_with_error;
            print "Connected to '$deviceipF5List1[0]' as '$username' \n";

            my $channel = $ssh2->channel() or do { print "Unable to create channnel ssh channel to Device $deviceipF5List[0]";$ssh2->disconnect(); last;};

            $channel->blocking(0);
            $channel->shell() ;
            print "SSH Success \n";
            sleep(2);

Я даже пытался использовать auth_password вместо auth, но не Удачи.

Ниже приводится ошибка, которую я получаю: Неверный дескриптор файла в строке 16

Я пытался удалить $! из строки № 16, но это привело к другой ошибке: Умер в строке 16

...