Net :: SSH :: Win32Perl зависает - PullRequest
       0

Net :: SSH :: Win32Perl зависает

0 голосов
/ 26 марта 2012

Привет, я пытаюсь сделать простой ls на unix box с windows xp machine.Он висит и не выходит тоже.что может быть проблемой

 use Net::SSH::W32Perl;
 use diagnostics;

    my $host = 'host';
    my $ssh = new Net::SSH::W32Perl($host, debug => 1);
    $ssh->login('username', 'password');
    my $cmd = "ls";
    my($stdout, $stderr, $exit) = $ssh->cmd($cmd);
    print "$stdout";
    exit;

ниже - это вывод, обратите внимание, что он смог войти в систему с помощью аутентификации по паролю, но не смог выдать вывод.Почему это?

>  C:\>perl winssh.pl
>     WXVM0026: Reading configuration data c:\/.ssh/config
>     WXVM0026: Reading configuration data /etc/ssh_config
>     WXVM0026: Connecting to hp-test, port 22.
>     WXVM0026: Socket created, turning on blocking...
>     WXVM0026: Remote protocol version 2.0, remote software version OpenSSH_4.3p2-hpn
>     WXVM0026: Net::SSH::Perl Version 1.34, protocol version 2.0.
>     WXVM0026: No compat match: OpenSSH_4.3p2-hpn.
>     WXVM0026: Connection established.
>     WXVM0026: Sent key-exchange init (KEXINIT), wait response.
>     WXVM0026: Algorithms, c->s: 3des-cbc hmac-sha1 none
>     WXVM0026: Algorithms, s->c: 3des-cbc hmac-sha1 none
>     WXVM0026: Entering Diffie-Hellman Group 1 key exchange.
>     WXVM0026: Sent DH public key, waiting for reply.
>     WXVM0026: Received host key, type 'ssh-dss'.
>     WXVM0026: Host 'hp-test' is known and matches the host key.
>     WXVM0026: Computing shared secret key.
>     WXVM0026: Verifying server signature.
>     WXVM0026: Waiting for NEWKEYS message.
>     WXVM0026: Send NEWKEYS.
>     WXVM0026: Enabling encryption/MAC/compression.
>     WXVM0026: Sending request for user-authentication service.
>     WXVM0026: Service accepted: ssh-userauth.
>     WXVM0026: Trying empty user-authentication request.
>     WXVM0026: Authentication methods that can continue: publickey,password,keyboard-interactive.
>     WXVM0026: Next method to try is publickey.
>     WXVM0026: Next method to try is password.
>     WXVM0026: Trying password authentication.
>     WXVM0026: Login completed, opening dummy shell channel.
>     WXVM0026: channel 0: new [client-session]
>     WXVM0026: Requesting channel_open for channel 0.
>     WXVM0026: channel 0: open confirm rwindow 0 rmax 32768
>     WXVM0026: Got channel open confirmation, requesting shell.
>     WXVM0026: Requesting service shell on channel 0.
>     WXVM0026: channel 1: new [client-session]
>     WXVM0026: Requesting channel_open for channel 1.
>     WXVM0026: Entering interactive session.
>     WXVM0026: Sending command: ls
>     WXVM0026: Sending command: ls
>     WXVM0026: Requesting service exec on channel 1.
>     WXVM0026: channel 1: send eof
>     WXVM0026: channel 1: open confirm rwindow 2097151 rmax 32768
>     WXVM0026: input_channel_request: rtype exit-status reply 0
>     WXVM0026: channel 1: rcvd eof
>     WXVM0026: channel 1: output open -> drain
>     WXVM0026: channel 1: rcvd close

1 Ответ

0 голосов
/ 26 марта 2012

Я недавно столкнулся с той же проблемой. Я нашел решение в PerlMonks и вот как я заставил его работать на меня.

  1. Убедитесь, что вы устанавливаете переменную среды $ ENV {HOME}, если она не установлена,Net :: SSH будет искать там элементы конфигурации.
  2. В Net / SSH / Perl.pm закомментируйте строки 49 и 50 и замените их на my $proto_class = $ssh->protocol_class($proto);
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...