From here: http://www.webhostingtalk.com/showthread.php?t=625723
Here is a quick Perl script that requires Net :: DNS (a fairly general module).
use Net::DNS;
%VAR = (
db => './domains.txt',
);
open (DB,$VAR{'db'});
my (@domains) = <DB>;
close (DB);
foreach my $domain (@domains)
{
chomp($domain);
my ($available) = &check_domain(domain => $domain);
if ($available)
{
print "$domain is available.<br />\n";
}
else
{
print "$domain is NOT available<br />\n";
}
}
sub check_domain {
my (%DATA) = @_ ;
my ($available) = 0;
my $res = Net::DNS::Resolver->new;
$res->udp_timeout(2);
$res->tcp_timeout(2);
my ($domain) = $res->search($DATA{'domain'});
if ($domain)
{
($available) = 1;
}
return ($available);
}
source
share