проблема создания сеанса SSH с использованием Perl

Question

use Net::SSH::Perl;
my $ssh = Net::SSH::Perl->new('$host',22);
$ssh->login('$user','$pass');
my $out = $ssh->cmd("show clock");
print $out;

У меня есть сценарий выше, чтобы иметь сессию SSH с использованием Perl, но у меня появляется сообщение об ошибке Msgstr "Невозможно отобразить имя службы 'ssh' на номер порта". Я использую ОС Windows. Пожалуйста, сообщите мне, где я не прав.

Answer 1

Попробуйте добавить ssh в файл служб. Файл служб находится по адресу:

%SystemRoot%\system32\drivers\etc\services

Строка, которую вы хотите добавить, будет выглядеть так:

ssh 22/tcp  # Secure Shell Login