I've been reading about Google's new DNS service with great interest. I had to switch to OpenDNS some time ago when my ISP began redirecting 404's to a search page. This wreaked havoc on my link verification tools.
While reading, I came upon a shell script at http://www.manu-j.com/blog/opendns-alternative-google-dns-rocks/ that I wanted to try. Since I run WinXP, I translated it to Perl and spruced it up a bit. I installed the utility from http://members.shaw.ca/nicholas.fong/dig/ and away we went...
While reading, I came upon a shell script at http://www.manu-j.com/blog/opendns-alternative-google-dns-rocks/ that I wanted to try. Since I run WinXP, I translated it to Perl and spruced it up a bit. I installed the utility from http://members.shaw.ca/nicholas.fong/dig/ and away we went...
# dnstimes.pl - test dns server times
use strict;
use warnings;
my @urls = qw(
lifehacker.com
facebook.com
manu-j.com
reddit.com
tb4.fr
bbc.co.uk
cindyruppert.com
);
my %dns_servers = (
Level_3 => '4.2.2.2',
Google => '8.8.8.8',
OpenDNS => '208.67.222.222',
);
for my $dns_firm (sort keys %dns_servers) {
my $dns_ip = $dns_servers{$dns_firm};
for my $url (@urls) {
my $result = `dig \@$dns_ip $url`;
my ($time) = $result =~ /Query time: (\d+)/s;
print "$dns_firm\t$url\t$time\n";
}
}
