18.8. Применение whois для получения данных от InterNIC

Проблема

Вы хотите узнать, кому принадлежит домен (по аналогии с командой UNIX whois).

Решение

Воспользуйтесь модулем Net::Whois с CPAN:

use Net Whois,

$domain ob] = Net Whois ,Domain->new($domain name)

or die Couldn t get information on $domain name $i\n,

# Вызвать методы объекта $domain ob]

# для получения имени, тега, адреса и т д

Комментарий

Сервис whois предоставляется службой регистрации доменных имен и предназначается для идентификации владельца имени. Исторически в системах семейства UNIX эти данные получались с помощью программы whois(l), которая возвращала около 15 строк информации, включая имена, адреса и телефоны административных, технических и финансовых контактных лиц домена.

Модуль Net::Whois, как и whois(l), является клиентом службы whois. Он подключается к серверу whois (по умолчанию используется whois.intemic.net, главный сервер доменов ".com", ".org.", ".net" и ".edu"). Доступ к данным осуществляется с помощью методов, вызываемых для объекта.

Чтобы получить информацию о домене, создайте объект Net::Whois::Domain. Например, для получения данных о perl.org объект создается так:

$d = Net Whois Domain->new( perl org )

or die Cant get information on perl org\n,

Гарантируется только получение имени домена и тега - уникального идентификатора домена в учетных записях NIC:

print The domain is called ", $d->domain, \n, print "Its tag is ", $d->tag, \n".

Также могут присутствовать следующие данные: название организации, которой принадлежит домен (например, "The Perl Institute"); адрес компании в виде списка строк (например, ("221В Baker Street", "London")) и страна (например, "United Kingdom" или двухбуквенное сокращение "ик").

print "Mail for ", $d->name, should be sent to \n", print map { "\t$ \n" ) $d->address; print "\t", $d->country, "\n".

18.9. Программа: ехрп и vrfy 663

Кроме информации о самом домене также можно получить сведения о контактных лицах домена. Метод contact возвращает ссылку на хэш, в котором тип контакта (например, "Billing" или "Administrative") ассоциируется с массивом строк.

$contact hash = $d->contacts; if ($contact hash) { print "Contacts:\n";

foreach Stype (sort keys %Scontact hash) { print " Stype:\n":

foreach Sline (@{Scontact hash->{Stype}}) { print Sline\n",

} else {

print "No contact information.\n",

> Смотри также-

Документация по модулю Net::Whois с CPAN; man-страница whois{8) вашей системы (если есть); RFC 812 и 954.

18.9. Программа: ехрп и vrfy

Программа ехрп напрямую общается с сервером SMTP и проверяет адрес с помощью команд EXPN и VRFY. Она не идеальна, поскольку ее работа зависит от получения достоверной информации с удаленного сервера командами EXPN и VRFY. Программа использует модуль Net::6NS, если он присутствует, но может работать и без него.

Программа узнает, как она была вызвана, с помощью переменной $0 (имя программы). При запуске под именем ехрп используется команда EXPN; при запуске под именем vrfy используется команда VRFY. Установка команды под двумя разными именами осуществляется с помощью ссылок:

% cat > ехрп

#1/usr/bin/perl -W

% In ехрп vrfy

Передайте программе адрес электронной почты, и она сообщит результаты проверки адреса командой EXPN или VRFY. Если у вас установлен модуль Net::DNS, программа проверяет все хосты пересылки почты (mail exchangers), перечисленные в записи DNS данного адреса.

Без Net::DNS результаты выглядят так:

% ехрп gnat@frii.com

Expanding gnat at frll.cora (gnatefrii.cora): calisto.frll.cora Hello coprollth.frll.cora [207.46.130.14],

pleased to meet you <gnateraall.fril.cora>

При установленном модуле Net::DNS получен следующий результат:

% ехрп gnat@frii.com

Expanding gnat at mall.frll.net (gnatefrii.com); delmos.frii.com Hello coprollth,fril.com [207.46.130.14],

pleased to meet you Nathan Torkington <gnatedeiraos.frii.com>

Expanding gnat at raxi.frli.net (gnatefrli.cora);

phobos.frll.com Hello coprollth.frii.com [207.46.130.14],

pleased to meet you <gnateraail.frli.cora>

Expanding gnat at mx2.frii.net (gnatefrli.com): europa.frii.oora Hello coprollth.fril.com [207.46.130.14],

pleased to meet you <gnateraall.frli.cora>

Expanding gnat at mx3.frii.net (gnatefril.com): ns2.wlnterlan.com Hello coprollth.frli.cora [207.46.130.14],

pleased to meet you 550 gnat... User unknown

Исходный текст программы приведен в примере 18.3. Пример 18.3. ехрп

#!/usr/bin/perl -w

# ехрп - расширение адресов через SMTP use strict;

use 10::Socket; use Sys::Hostname;

my $fetch mx = 0;

# Попытаться загрузить модуль, но не огорчаться в случае неудачи eval {

require Net::DNS;

Net::DNS->import(mx);

$fetch mx = 1;

my Sselfname = hostname();

die "usage: $0 address\@host ...\n" unless @ARGV;

# Определить имя программы - "vrfy" или "ехрп".

my SVERB = (SO =- /veri?fy$/i) ? VRFV : EXPN; my Smulti = igARGV > 1; my $ remote;

# Перебрать адреса, указанные в командной строке foreach my Scombo (@ARGV) {

my (Sname, $host) = split(/\@/, Scombo); my @hosts;