mrtg- script para medir latência

Script em Perl para medição de latencia, serve para usar no MRTG:
uso : mrtg-ping.pl "endereço do host" #!/usr/bin/perl $ipaddr = "NULL"; $ipaddr = $ARGV[0]; $numpings = 5; if ($ipaddr eq "NULL"){ print "Usage mrtgping.pl [ipaddress]\n"; exit; } $result = `/bin/ping -c $numpings -n -q $ipaddr | /usr/bin/tail -1`; chop($result); #print $result; # Ping result will look like... # round-trip min/avg/max/stddev = 18.707/91.234/325.268/118.491 ms ($descp1,$descp2,$equal,$data) = split(/ /,$result); ($min,$avg,$max) = split(/\//,$data); ($avgint,$avgdec) = split(/\./,$avg); print "$avgint\n"; print "$avgint\n"; #print "0\n"; #print "$ipaddr\n"; fonte : http://www.lns.com/papers/mrtg/