Perl SSH-соединение и выполнить Telnet-соединение - PullRequest
Новая
       33

Perl SSH-соединение и выполнить Telnet-соединение

1 голос
/ 04 апреля 2011

У меня есть несколько маршрутизаторов Cisco, настроенных для доступа по Telnet с 5 указанных хостов.Теперь я хочу выполнить Perl-скрипт на одном хосте, который соединяется через ssh с другими хостами и проверяет, возможен ли telnet с маршрутизатором.Я попробовал системную команду "ssh host", но, к сожалению, без радости.Может ли кто-нибудь помочь мне, пожалуйста?

Большое спасибо заранее.

Я попробовал следующее, но безуспешно.Некоторые идеи? 


use Net::OpenSSH;

$ssh = Net::OpenSSH->new("linuxserver", user => "username", password => "password", master_stderr_discard => 1);
$command = "telnet routername";
@out = $ssh->capture({stdin_data => "routerpassword\n"}, $command);

print "@out\n";

1 Ответ

4 голосов
/ 04 апреля 2011

Вы можете использовать Net :: SSH2 для подключения и пересылки подключения к маршрутизатору с помощью метода tcpip . В качестве альтернативы вы можете использовать Net :: OpenSSH (для этого требуется только двоичные файлы OpenSSH ), чтобы сделать то же самое, см. Информацию по Tunnels .

...