도메인 이름을 대량으로 사용할 수 있는지 어떻게 확인합니까?

Question

일부 도메인 이름을 구입할 수 있는지 확인하기 위해 대량 도메인 이름 조회를 수행하려고합니다. 나는 perl 모듈을 찾을 수 없지만, perl에서 이것을 할 수있는 방법이있는 것 같다. 나는 무언가를 무료로 찾고 있습니다. 고마워! 여기에서

Answer 1

:

http://www.webhostingtalk.com/showthread.php?t=625723 여기 순 :: 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); 
} 

Answer 2

일부 옵션은 https://stackoverflow.com/questions/3463336/recommended-apis-for-checking-domain-availability을 참조하십시오.

Answer 3

whois-like modules on CPAN이 많이 있습니다. Net::Whois::Parser은 유망 해 보입니다.

해당 사항이 없으면 whois 명령은 Linux 및 기타 Unix-y 시스템 (Windows 용 Cygwin 포함)에서 사용할 수 있습니다. whois script in Perl on CPAN도 있습니다. 이러한 프로그램을 실행하는 것이 쉬운 부분입니다. Perl이 확실히 도움을 줄 수있는 까다로운 부분은 이러한 프로그램의 출력물을 파싱하는 것입니다.