Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

28 lines (22 sloc) 0.47 kB
#!/usr/bin/perl
use Modern::Perl;
open my $fh, "/usr/share/dict/words";
while(<$fh>) {
chomp;
my $word = $_;
next unless $word =~ /ly$/i;
$word =~ s/..$//;
if(`curl -d domain="$word" http://nic.ly/whois.php` =~ /Domain not registered/) {
say "$word.ly AVAILABLE!";
} else {
say "$word.ly nah";
}
# say $word;
}
#for(0 .. 9 'a' .. 'z') {
# my $domain = lc $_.'box.com';
# $domain =~ s/'//g;
# if(`whois $domain` =~ /NO MATCH/i) {
# print $domain;
# }
#}
Jump to Line
Something went wrong with that request. Please try again.