2011-01-29 3 views
3

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

+0

Возможные дубликаты: http://stackoverflow.com/questions/3463336/recommended-apis-for-checking-domain-availability или http://stackoverflow.com/questions/2523260/recommendations-for-domain-name- registrar-with-api-support – bdonlan

+1

Фактически, это не дубликат. Я ищу что-то бесплатное .... эти люди просят заплатить версии –

ответ

1

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

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

#!/usr/bin/perl 

# Domains Available 
# Josh Skidmore <[email protected]> 
# 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 <[email protected]> 
    # 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); 
} 
+3

Я видел это, но как указано в следующем ответе на этой доске, тот факт, что домен не разрешает, не означает, что он доступен –

+1

И его дорогое создание объекта Net :: DNS :: Resolver для каждого запроса. –

1

Есть много whois-like modules on CPAN. Net::Whois::Parser выглядит многообещающим, для одного.

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

Смежные вопросы