#!/usr/bin/perl
#
# tping.pl
# Author: Martin bergek
#
# Pings a remote host and records the time and latency
# for each ping.
#

use strict;

if($#ARGV < 0) {
	print "Usage: ping.pl <host>\n";
	exit 1;
}

$| = 1;

my $host = $ARGV[0];
open PING, "ping $host |" or die "Error :$!";

print "# Ping test\n#\n";
print "# Host:    $host\n";
print "# Started: ".localtime(time)."\n#\n";
print "# Date,Time,SEQ,RTT\n";

while(<PING>) {	
	if($_ =~ m/.*seq=(\d+).*time=([\.0-9]*).*/) {	
		my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
		my $dt = sprintf("%4d-%02d-%02d,%02d:%02d:%02d", $year+1900, $mon+1, $mday, $hour, $min, $sec);
		print "$dt,$1,$2\n"
	}	
}

