Continous Ping with Timestamp?

[John Davis]

Hey folks,

I'm a Perl newbie and would like to know. Does perl have any module or
is there any source code out there that does a continuous ping with
timestamp attached to it?

On Solaris, I run this:

timson% /usr/sbin/ping -s ron
PING rover.isn.instinet.com: 56 data bytes
64 bytes from ron.iseen.yahoo.com (172.98.123.3): icmp_seq=0. time=25.
ms
64 bytes from ron.iseen.yahoo.com (172.98.123.3): icmp_seq=1. time=19.
ms
64 bytes from ron.iseen.yahoo.com (172.98.123.3): icmp_seq=2. time=23.
ms

I get continuous pings and also get back the time it takes, which I
want to log.

I want to be able to timestamp each ping attempt because there have
been some issue with latency and I want to be able to track ping times
with timestamps to see if I can pin point a delay (via our WAN) at the
time someone reports it.

Thanks!

 

[Nicholas Dronen]

JD> Hey folks,

JD> I'm a Perl newbie and would like to know. Does perl have any module or
JD> is there any source code out there that does a continuous ping with
JD> timestamp attached to it?

JD> On Solaris, I run this:

JD> timson% /usr/sbin/ping -s ron
JD> PING rover.isn.instinet.com: 56 data bytes
JD> 64 bytes from ron.iseen.yahoo.com (172.98.123.3): icmp_seq=0. time=25.
JD> ms
JD> 64 bytes from ron.iseen.yahoo.com (172.98.123.3): icmp_seq=1. time=19.
JD> ms
JD> 64 bytes from ron.iseen.yahoo.com (172.98.123.3): icmp_seq=2. time=23.
JD> ms

JD> I get continuous pings and also get back the time it takes, which I
JD> want to log.

JD> I want to be able to timestamp each ping attempt because there have
JD> been some issue with latency and I want to be able to track ping times
JD> with timestamps to see if I can pin point a delay (via our WAN) at the
JD> time someone reports it.

Net:ing's hires() will accomplish that.

http://search.cpan.org/search?query=Ping&mode=all

Regards,

Nicholas