Why not use ping(8)?
In Perl, open a pipe to ping a machine one time and parse via regexps. I
didn't test the following code so don't rely on it:
$ip = "127.0.0.1";
open(PIPE, "/bin/ping -c 1 $ip |");
# Now parse the output
while(<PIPE>)
{
chomp;
if (/^round-trip min\/avg\/max\/mdev =
([^\/]+)\/([^\/]+)\/([^\/]+)\/([^ ]+) .*$/)
{
$min = $1;
$avg = $2;
$max = $3;
$mdev = $4;
}
}
close(PIPE);
print $min, "\n";
print $avg, "\n";
print $max, "\n";
print $mdev, "\n";
On Mon, 10 Sep 2001, Schroeder, Dennis wrote:
> I need a PING utility that can be configured to issue one PING, and return
> only the ROUND TRIP TIME as a result. I need to call this from a PERL
> script (I don't know PERL, does it have any PING capabilities?) and record
> the RTT into an RRD database.
>
> Also, has anyone done any monitoring of Oracle Application response time? I
> need to figure out how to capture the amount of time a transaction takes
> (the same one over and over) and record that into an RRD too.
>
> Thanks!
>
> -----------------------------------------------------------------
> Dennis Schroeder || ||
> Network Engineer || ||
> SANMINA Global Network Services |||| ||||
> Phone: 602-824-8431 ..:||||||:..:||||||:..
> Mobile: 602-432-3258 Cisco Certified
> Email: [EMAIL PROTECTED] Network Associate
> -----------------------------------------------------------------
> One person with a belief is a social power
> equal to 99 who have only interests.
> -----------------------------------------------------------------
>
>
> --
> Unsubscribe mailto:[EMAIL PROTECTED]
> Help mailto:[EMAIL PROTECTED]
> Archive http://www.ee.ethz.ch/~slist/rrd-users
> WebAdmin http://www.ee.ethz.ch/~slist/lsg2.cgi
>
--
Wayne Huang <[EMAIL PROTECTED]>
Osiris Communications, Inc.
http://www.osiriscomm.com
(877) 219-3708 (Office)
(978) 383-6390 (Fax)
--
Unsubscribe mailto:[EMAIL PROTECTED]
Help mailto:[EMAIL PROTECTED]
Archive http://www.ee.ethz.ch/~slist/rrd-users
WebAdmin http://www.ee.ethz.ch/~slist/lsg2.cgi
