我需要检查域名列表,并获得没有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 $fi