вернуть удаленную версию SSH в Perl с помощью Net :: SSH2

Question

Мне нужно, чтобы получить удаленную версию Sshd используя Net :: SSH2 из окон через

./check_ssh -H exemple.com 
    OpenSSH_6.0p1 (Protocol 2.0) 

В случае SSH отключенный просто отображать соединения отказался или Оправа Тайм-аут если соединение не было специально отклонено.

Конечной целью было бы симулировать поведение плагина check_ssh nagios из окна окна. Я буду подключаться из этого окна к устройству unix и отправлять результаты моего скрипта на nagios через nrpe.

Мне не нужно войти в систему. Я пытался установить в dwim perl Net :: SSH :: Perl без успеха единственный, который мне удалось установить, был Net :: SSH2. Мне не нужна поддержка для ssh v1.

Answer 1

Если вы можете установить утилиту netcat, вы можете использовать ее для ее проверки. Например:

my $NC = `nc -w 1 localhost 22`; 
print $NC; 

В этом примере netcat подключается к localhost на порту 22 и истекает через 1 секунду.

Answer 2

Вы можете использовать модуль IO::Socket::INET. Например:

$ cat ssh.pl 
#!/usr/bin/perl 

use IO::Socket::INET; 

my $socket = IO::Socket::INET->new(
    PeerHost => 'localhost', 
    PeerPort => 22, 
); 

$socket->print("\n"); 
my $output = join '', $socket->getlines(); 

print $output; 

Что результат будет выглядеть следующим образом:

$ ./ssh.pl 
SSH-2.0-OpenSSH_6.2 
Protocol mismatch 

С этого момента вам нужно просто разобрать вывод.