How to find free domain name
Feb 22
2008
2008
Comments Off
#!/usr/bin/perl use strict; use warnings; my $dom = shift || die "missing name\n"; my $res = qx{whois $dom}; die $1 . "for '$dom'\n" if $res =~ /(no\s+whois\s+server\s+)/i; die "$dom is free\n" if $res =~ /no\s+match|does\s+not\s+exist/i; die "$dom is reserved\n"; __END__ _whois 123456.com 123456.com is reserved _whois _123456_.com _123456_.com is free
