как проверить, доступно ли доменное имя (навалом)?

Question

Я хочу выполнить массовый поиск доменного имени, чтобы узнать, доступны ли некоторые доменные имена для покупки.Я не смог найти модуль perl, но, похоже, должен быть способ сделать это в perl.Я ищу что-то бесплатное.ТНХ!

Answer 1

См. https://stackoverflow.com/questions/3463336/recommended-apis-for-checking-domain-availability для некоторых опций.

Answer 2

В CPAN имеется множество whois-подобных модулей. Net::Whois::Parser выглядит многообещающе, с одной стороны.

За исключением этого, команда whois доступна в Linux и других системах Unix-y (включая Cygwin для Windows). Есть также скрипт whois в Perl на CPAN . Запуск этих программ является легкой частью. Сложная часть, с которой Perl определенно может помочь, - это анализ выходных данных этих программ.

Answer 3

Отсюда: http://www.webhostingtalk.com/showthread.php?t=625723

Вот быстрый Perl-скрипт, который требует Net :: DNS (довольно распространенный модуль).

#!/usr/bin/perl

# Domains Available
# Josh Skidmore <josh@vorcado.com>
# 05 August 2007 | 11:40p EST

# Requirements
    use Net::DNS;

# Variables
    %VAR    =   (
                    db => './domains.txt',
                );

# Open file
    open (DB,$VAR{'db'});
    my (@domains) = <DB>;
    close (DB);

# Test domains
    foreach my $domain (@domains)
        {
            chomp($domain);

            my ($available) = &check_domain(domain => $domain);

            if ($available)
                {
                    print "$domain is available.<br />\n";
                }
            else
                {
                    print "$domain is NOT available<br />\n";
                }
        }

sub check_domain {

    # Test domain for existance
    # Josh Skidmore <josh@vorcado.com>
    # 05 August 2007 | 11:42p EST

    # Variables
        my (%DATA) = @_ ;
        my ($available) = 0;

    # Start Net::DNS
        my $res = Net::DNS::Resolver->new;
        $res->udp_timeout(2);
        $res->tcp_timeout(2);

        my ($domain) = $res->search($DATA{'domain'});

        if ($domain)
            {
                ($available) = 1;
            }

    # Output
        return ($available);
}