Служба каталогов WHOIS - часть 2

Netname: BRANDEIS Netnumber: 129.64.0.0

Coordinator:

Koskovich, Bob (BK138-ARIN) user@BRANDEIS.EDU 617-555-1212 Служба каталогов WHOIS 211

Domain System inverse mapping provided by:

BINAH.CC.BRANQEIS.EDU 129.64.1.3 NIC.NEAR.NET 192.52.71,4

NOC.CERF.NET 192.153.156.22

Record last updated on 10-Jul-97.

Database last updated on 9-Oct-98 16:10:44 EOT

The ARIN Registration Services Host contains ONLY Internet Network Information: Networks, ASN's, and related POC's. Please use the whois server at rs.internic.net for DOMAIN related Information and nic.mil for NIPRNET Information.

В предыдущем примере применялся WHOIS-клиент из Unix, работающий в командной строке. В Windows NT и MacOS подобные клиенты не входят, тем не менее, это не должно остановить пользователей данных систем от получения доступа к нужной информации. Существует

много условно бесплатных клиентов, но не так трудно с помощью модуля Net: : Whois создать на Perl очень простой клиент (модуль Net: : Whois первоначально был написан Чипом Салзенбергом (Chip Salzenberg), а теперь поддерживается Даной Хьюдес (Dana Hudes)). Следующий

код - это лишь несколько измененная версия примера из документации, поставляемой вместе с модулем:

use Net::Whois;

fl запрашиваем сервер, возвращая объект с результатами my $w = new Net::Whois::Domain $ARGV[0] or

die "Невозможно соединиться с сервером Whois\n", die "Никакой информации о домене $ARGV[0] не найдено\п " unless ($w->ok),

и выводим части этого объекта

print "Домен: ", $w->domain, "\n";

print "Имя: ", $w->name, "\n";

print "Тег: ", $w->tag, "\n";

print "Адрес:\n", map { " $_\n" } $w->address;

print "Страна: ", $w->country, "\n";

print "Запись создана: ".$w->record_created."\n";

print "Запись обновлена: ",$w->record_updated."\n";

и выводим серверы имен ($w->servers returns a list of lists)