bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Moved to searching three letter domains in .us

Browse source
This commit is contained in:
Bradley M. Kuhn 2010-06-27 11:46:50 -04:00
parent 18b4a0073d
commit af6ca9d374
1 changed files with 14 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
find-short-domain.plx
View file

@ -23,11 +23,20 @@ use Net::WhoisNG;
foreach my $let1 ('a' .. 'z', '0' .. '9') { foreach my $let1 ('a' .. 'z', '0' .. '9') {
foreach my $let2 ('a' .. 'z', '0' .. '9') { foreach my $let2 ('a' .. 'z', '0' .. '9') {
my $domain = "$let1$let2" . ".us"; foreach my $let3 ('a' .. 'z', '0' .. '9') {
my $domain = "$let1$let2$let3" . ".us";
my $w = new Net::WhoisNG($domain); my $w = new Net::WhoisNG($domain);
print STDERR "trying domain, $domain...\n";
if(!$w->lookUp()){ if(!$w->lookUp()){
print "$domain is not in use\n"; print "$domain is not in use\n";
} else {
my $exp_date=$w->getExpirationDate();
if (not defined $exp_date) {
print "$domain is not in use\n";
}
else {
print STDERR "taken domain, $domain, $exp_date...\n";
}
}
} }
} }
} }