使用Perl批量检查域的可用性

Question

我需要检查域名列表，并获得没有NS的域名列表(可能是未注册的)。我已经用ADNS和adnshost找到了一个很好的解决方案。命令"adnshost -a -tns domain.com“做了我需要的事情(输出中的第四列将包含结果)，但我希望用Perl和Net::DNS::Async实现相同的结果。

我的代码：

#!/usr/bin/perl -w

use strict;
use utf8;
use Net::DNS::Async;

my $c = new Net::DNS::Async(QueueSize => 1000, Retries => 3);

my $filename = 'domain_list.txt';

open(FH, '<', $filename);

while(<FH>){

chomp($url);

$c->add(\&callback, "$url");

}

$c->await();

sub callback {
my $response = shift;
print $response->string;
}

那么，如何使用Perl和Net::DNS::Async获取所需的信息呢？

Answer 1

您可以向add参数添加NS。

while (<FH>) {
    chomp;
    $c->add(\&callback, $_, 'NS');
}

$c->await();

sub callback {
    my $response = shift;
    unless ($response->answer) {
        my $host = join '.', @{$response->{question}[0]{qname}{label}};
        print "$host\n";
    }
}

如果没有回复，$response->answer将为“空”。