Files
cacti/scripts/ping.pl
T
Ian Berry 645d8d812e not everyone has the '-w' option
git-svn-id: svn+ssh://repo.cacti.net/var/data/svnroot/cacti/trunk/cacti@874 860744bd-22fc-0310-8c96-e9fe5004b5ca
2003-04-21 05:21:39 +00:00

7 lines
115 B
Perl

#!/usr/bin/perl
$ping = `ping -c 1 $ARGV[0] | grep icmp_seq`;
$ping =~ m/(.*time=)(.*) (ms|usec)/;
print $2;