Исходное сообщение
"mrtg для мониторинга загрузки ethernet на freebsd" Отправлено Max, 24-Мрт-06 08:36
>>аналог не аналог а я сам написал, нетстат скрипт опрашивает и в >>нужном формате мртг выдаёт, скрипт пишится за 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";