Вот цитата из статьи на http://www.artmagic.ru/labs/cisco.shtml
Мне кажется здесь где то неточность, что тут имелось ввиду?
"Скрипт для получения статистики с роутера и помещения в базу данных. Для реализации скрипта нужно уметь делать стандартные операции с SQL базой (получить, вставить, удалить, изменить данные и т.п.). Для различных платформ реализации разные, поэтому описания самого механизма выполнения SQL-запросов через Perl мы не приводим. Мы пользовались интерфейсом DBI.
#!/usr/bin/perl
# Стандартная библиотека работы с базой данных в ней процедуры Connect,
Select, Exec, Insert,
# Delete, Update
require '/usr/local/traffic/lib/DB2.pl';
Connect('TrafficBase', '10.128.1.43', 'root', '');
# С каких роутеров собирать статистику - ip - ID в таблице роутеров
$Routers{'10.58.0.1'} = 1;
$Routers{'10.55.3.1'} = 3;
foreach $ip (keys %Routers) {
# Переводим данные о траффике из таблицы active в таблицу checkpoint
`/usr/bin/rsh -l traffic $ip clear ip accounting`
# Получаем данные с маршрутизатора из таблицы checkpoint
@Stat = split(/\n/, `/usr/bin/rsh -l traffic $ip sh ip accounting checkpoint`);
@AD = localtime;
$Date = sprintf("M-d-d d:d:d", $AD[5] + 1900, $AD[4] + 1, $AD[3],
$AD[2], $AD[1], $AD[0]);
foreach $s (@Stat) {
if ($s !~ /^\s\d{1,3}\./) { next; } # Игнорируем заголовок и Summary
$s =~ s/^\s+//;
$s =~ s/\s+/ /g;
my @Row = split (/ /, $s);
my @Dst = split (/\./, $Row[1]);
# Записываем в базу данные по трафику
Insert('Traffic', "'', '$Date', '$Row[0]', '0', '$Dst[0].$Dst[1]', $Dst[2], $Dst[3], '0', $Row[3], '', $Routers{$ip}");
"
Вариант для распечатки
OpenNET: Виртуальная конференция (Public)
on
06-Авг-03, 06:45 (MSK)
