Perl-скрипт, проверяющий, не зарегистрирован-ли заданный домен. Работает со следующими зонами:
RU, SU, COM, NET, ORG, INFO, BIZ, CC, TV, ME, TEL, MOBI, NAME, AERO, TRAVEL.

#!/usr/bin/perl
# (c) 2lx.ru
# Скрипт проверяет, свободен-ли домен в следующих зонах:
# RU, SU, COM, NET, ORG, INFO, BIZ, CC, TV, ME, TEL, MOBI, NAME, AERO, TRAVEL

use strict;
use LWP::Simple;

my $whois_server = "http://www.nic.ru/whois/?query=";
my $domain = "ya.ru";

my $whois_result = get($whois_server . $domain);
if ($whois_result =~ m/Домен занят./is)
{print "Домен занят\n";}
elsif ($whois_result =~ m/Информация по доменам в зоне (.*?) не предоставляется/is)
{print "Домеы в этой зоне не обрабатываются\n";}
elsif ($whois_result =~ m/Доменное имя свободно!/is)
{print "Домен свободен\n";}
else
{print "Неизвестная ошибка\n";}

Скачать