TL-SG5412F v1 copy startup-config tftp PERL
Эта ветка закрыта для дальнейших ответов. Вы можете создать новую тему, чтобы поделиться своими идеями или задать вопросы.
TL-SG5412F v1 copy startup-config tftp PERL
#!/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......