TL-SG5412F v1 copy startup-config tftp PERL

Эта ветка закрыта для дальнейших ответов. Вы можете создать новую тему, чтобы поделиться своими идеями или задать вопросы.

TL-SG5412F v1 copy startup-config tftp PERL

Эта ветка закрыта для дальнейших ответов. Вы можете создать новую тему, чтобы поделиться своими идеями или задать вопросы.
TL-SG5412F v1 copy startup-config tftp PERL
TL-SG5412F v1 copy startup-config tftp PERL
2015-10-05 11:58:58
Всем доброго дня. Набросал скрипт для бэкапа свичей на PERL. С другими изготовителями работает на ура. Ну вот на TL-SG5412F v1 - застрял. Вот собственно сам скрипт:
#!/usr/bin/perl use Net::Telnet; use strict; my $tftp_server='10.12.59.74'; my $login='admin'; my $password='admin'; my $file = "/root/tftp-back-script/backup.log"; my $t = new Net::Telnet(Timeout => 1, Telnetmode => 0, Errmode => "return", Input_log => $file); my @tplink = ( '172.16.2.7' ); for (my $i=0; $i <= $#tplink; $i++){ $t->open(Host => $tplink[$i]); $t->waitfor('/User:/i'); $t->print($login); $t->waitfor('/Password:/i'); $t->print($password); $t->waitfor('/>#.*/i'); $t->print(''); $t->waitfor('/>/i'); $t->print('enable'); $t->waitfor('/Password:/i'); $t->print($password); $t->waitfor('/#/i'); $t->print("copy startup-config tftp ip-address $tftp_server filename $tplink[$i].cfg"); $t->waitfor('/#/i'); $t->print('exit'); $t->waitfor('/>/i'); $t->print('exit'); }


А лог вертает следующий результат
яьяыяыяэяыяэяыяы"яы ***************** User Access Login ******************** User:admin Password: TP-LINK>#2015-10-05 13:53:09,[User]/3/Login the CLI by admin on vty0 (192.168.0.100). TP-LINK>enable Password: TP-LINK#copy startup-config tftp ip-address 10.12.59.74 filename 172.16.2[65D$opy startup-config tftp ip-address 10.12.59.74 filename 172.16.2.[66D$py startup-config tftp ip-address 10.12.59.74 filename 172.16.2.7[66D$y startup-config tftp ip-address 10.12.59.74 filename 172.16.2.7.[66D$ startup-config tftp ip-address 10.12.59.74 filename 172.16.2.7.c[66D$startup-config tftp ip-address 10.12.59.74 filename 172.16.2.7.cf[66D$tartup-config tftp ip-address 10.12.59.74 filename 172.16.2.7.cfg Start to backup user config file......
Имя бэкапа пробую задавать другое. Не помагает. Заранее спасибо за помощь
  0      
  0      
#1
Опции
1 Ответить
Re: TL-SG5412F v1 copy startup-config tftp PERL
2015-10-17 06:58:02
Разобрался отрезав конец названия бэкапа:

$t->print("copy startup-config tftp ip-address $tftp_server filename $tplink[$i]");
  0  
  0  
#1
Опции