Perl: Mass Domain Checker Script

A quick and dirty script to mass check domain names.

#!/usr/bin/perl -w
use strict;
use Socket;
no warnings;

print "checking domains...\n\n";

while(<>)
{
	chomp($_);

	if(rindex($_, ".") == -1)
	{
		$_ = $_.".com";
	};

	eval
	{
		my $address;
		$address = inet_ntoa(inet_aton($_));
		print "not available\t -- $_\n";
	};
	if($@)
	{
		print "available\t -- $_\n";
	};
}

print "\ndone.\n";

Usage:

• Copy, paste & save the script as domainchecker – make sure you have Perl installed.
• If you’re on a *NIX platform (Macs included) chmod 770 domainchecker.
• Save the list of domain you want to check in a separate file, e.g: domains.txt, one domain name per line
• Run the script: ./domainchecker domains.txt