如何檢查域名是否可用（散裝）？

我期待做一個批量域名查詢，看看是否有一些域名可供購買。我無法找到perl模塊，但似乎應該有辦法在perl中執行此操作。我正在尋找免費的東西。謝謝！如何檢查域名是否可用（散裝）？

2011-01-29 Marissa Levy

可能的重複項：http://stackoverflow.com/questions/3463336/recommended-apis-for-checking-domain-availability或http://stackoverflow.com/questions/2523260/recommendations-for-domain-name-實際上，這不是一個重複的註冊商與api支持 – bdonlan 2011-01-29 13:42:49

。我正在尋找免費的東西....這些人正在要求付費版本 – 2011-01-29 13:46:57

從這裏：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); 
}

來源

2011-01-29 12:53:05 aruseni

我看到一個，但正如在該板上的下一個答案中指出的，域不解決的事實並不意味着它是可用的 – 2011-01-29 12:55:56