Исполнение списка команд на N-количестве cisco-устройств
by zippo on Окт.22, 2010, в разделе Cisco, Скрипты
Маленький, но полезный perl-скрипт был написан с год назад. Идеей было – исполнение списка команд на перечисленном списке коммутаторов Cisco, в частности для изменения accesslist`ов.
В хозяйстве понадобиться модуль Net::Telnet::Cisco.
Ставить проще всего через cpan =) –
localhost# cpan
install Net::Telnet::Cisco
далее создаем файл в любом удобном текстовом редакторе.
сам код
#!/usr/bin/perl
use Net::Telnet::Cisco;
$ciscologin='test';
$ciscopassw='testpwd';
open(DEVFILE,$ARGV[0]);
while($device=
{
my $session = Net::Telnet::Cisco->new(Host => $device);
$session->login($ciscologin,$ciscopassw);
open(CMDFILE,$ARGV[1]);
while($cmds=
{
my @output = $session->cmd($cmds);
print @output."\n";
}
close(CMDFILE);
$session->close;
}
close(DEVFILE);
делаем
chmod +x scriptname
./scriptname devices.lst cmds.lst
devices.lst – тут перечисляем доменные имена или ip наших девайсов
cmds.lst – а тут список комманд