LINUX.ORG.RU

[Perl][cisco]

 ,


0

1

Имеется скрипт для захода на циску по телнету и загрузке с tftp сервера настроек для оной циски.

При работе скрипт выдает следующие.

pattern match read eof at /root/cisco_telnet.pl line 15

(15 строчка это $session->cmd('exit'); )

Сам скрипт

#!/usr/bin/perl
use warnings;
use strict;

use Data::Dumper;
use Net::Telnet::Cisco;

my $session = Net::Telnet::Cisco->new(Host => 'xx.94.0.xx2');


$session->login('nfnnnnnn', 'xxxxxxxxxxxx');

my @out = $session->cmd("copy tftp://xx.94.0.xxx/list system:/running-config\n\n\n");

$session->cmd('exit');

$session->close;


1;

Версии ПО: FreeBSD 8.2-RELEASE amd64 perl, v5.10.1 (*) built for amd64-freebsd-thread-multi Все поставлено аккуратно из портов.

P.S Сделано через телнет,ибо через ssh,почему-то очень не стабильно работает.

P.P.S Напрямую не вставляется из-за долгого времени вставки одной строки(порядка 0.5 сек) [Над этой проблемой щас бьюсь]

★★★★★

Ответ на: Мое гугл-фу сильней твоего от madgnu

>Мое гугл-фу сильней твоего

Ну я на эту ссылку натыкался - правда у меня это не пашет.
Попробую еще раз этот кусок кода и мысли еще ращ переосмыслить )

closed the telnet connection during its reset.

If you don't want to see that message, change $t->errmode() just before cmd().

$t->errmode(sub {die @_ unless $_[0] =~ /eof/}); # Be quiet about getting eof
@output1 = $t->cmd('y'); # 'reset' causes telnet eof

pinachet ★★★★★
() автор топика
Ответ на: комментарий от iSage

>Ну там какбэ дальше $session->close; который, теоретически, приведет к аналогичному результату.

Да так и произошло.Уже этого безполезного варнинга нету.
Ок.Теперь надо убрать из схемы tftp сервер,чтобы сразу на циско лилось, потом можно уже в опенсорс это выкладывать.

pinachet ★★★★★
() автор топика
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.