#!/usr/bin/perl

# pings all hosts it can find in any list (ie cut n pasted from
#  netscape), gives best/fastest ping

while (<>) {
 @hosts = (/[^a-z0-9-\.]*?([a-z0-9-\.]+?\.(?:com|net|edu|org|gov|biz|info|mil|[a-z][a-z]))[^a-z0-9-.]+?/gix);
# @hosts = (/\:\/\/([a-z0-9-\.]+?\.(?:com|net|edu|org|biz|info|gov|mil|[a-z][a-z]))[^a-z0-9-.]+?/gix);

 unshift (@plist, @hosts)
}

for $host (@plist) {
  $phost{$host}++;		# hash's make unique keys.
}

@plist = sort keys %phost;
$hostlist = join (" ", @plist);
print "comparing pings to hosts: $hostlist\n";

#print "multiping -c10 -t $hostlist | grep -v bytes  | grep % |sort +0.55n +0.70\n\n";

#print `multiping -c10 -t $hostlist | grep -v bytes  | grep % | sort +0.55n +0.70`;

print "fping -q -Q 10 -c 10 $hostlist 2>&1| sort -t / -k 5n -k 8n\n";
print `fping -q -Q 11 -c 10 $hostlist 2>&1 | sort -t / -k 5n -k 9n`;