Initial commit.

dns-hit.pl

@@ -0,0 +1,52 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings "all";
+
+use Net::DNS;
+
+my $record_type = 'TXT';
+my $record_amount = 28;
+my $domain = 'cnn.com';
+
+sub lookup;
+
+my $res = Net::DNS::Resolver->new(
+	nameservers => [ '217.16.16.13', '217.16.20.13', '217.16.16.12', '217.16.22.12' ],
+	recurse     => 1,
+	debug       => 0
+);
+
+my $i = 0;
+while ( 1 ) {
+	my $hit = 0; my $miss = 0;
+
+	for ($i = 0; $i < 1000; $i++) {
+		if (lookup($domain) == 1){ $miss++; }
+		else { $hit++; }
+	}
+
+	print "hit/miss: $hit/$miss\n";
+}
+exit 0;
+
+sub lookup {
+	my $host = shift;
+	my $reply = $res->query($host, $record_type);
+
+	if (defined($reply)) {
+		my $rec_count = 0;
+
+		foreach my $rr ($reply->answer) {
+			next if ($rr->type ne $record_type);
+			$rec_count++;
+		}
+
+		return 1 if ($rec_count < $record_amount);
+		return 0;
+	} else {
+#		warn "query failed: ", $res->errorstring, "\n";
+		return 1;
+	}
+}
+