>>аналог не аналог а я сам написал, нетстат скрипт опрашивает и в
>>нужном формате мртг выдаёт, скрипт пишится за 15 минут.
>
>не поделишься? :-)
запросто, данный скрипт собирает стату с интерфейса dc0, если надо для остальных делай по аналогии.
#!/usr/bin/perl
system "netstat -bin|grep dc0 >>./0";
system "tr ' ' '\n'< ./0 > ./1";
system "rm ./0";
open(TRAFFIC,"./1");
@log=<TRAFFIC>;
close TRAFFIC;
$lines=@log;
for($i=0;$i<$lines;++$i)
{
if(@log[$i] ne "\n")
{
if(@log[$i] ne "")
{
@end[$i]=@log[$i];
open(TEMP,">>./temp");
print TEMP @end[$i];
close TEMP;
}
}
}
system "rm ./1";
open(TEMP,"./temp");
@end=<TEMP>;
@dat[1]=@end[6];
close TEMP;
open(TEMP,"./temp");
@end=<TEMP>;
@dat[0]=@end[9];
close TEMP;
system "rm ./temp";
print @dat;
system "uptime >>/var/upt";
open(OPT,"/var/upt");
$upt=<OPT>;
close OPT;
print $upt;
print "Что нибулдь идентифицирующее твою машину";
system "rm /var/upt";
Вариант для распечатки
OpenNET: Виртуальная конференция (Public)
on 21-Мрт-06, 14:20 
