注册
登录
| 关键词： query nbsp res errorstring DNS Net rr Resolver my foreach |
use Net::DNS;my $res = Net::DNS::Resolver->new;my $query = $res->search("www.baidu.com"); if ($query) {foreach my $rr ($query->answer) {next unless $rr->type eq "A";print $rr->address, "\n";}} else {warn "query failed: ", $res->errorstring, "\n";} |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
