用Perl进行DNS反向查询

最新推荐文章于 2024-09-07 15:19:09 发布

HappyTown

最新推荐文章于 2024-09-07 15:19:09 发布

阅读量743

点赞数

分类专栏： Perl 文章标签： perl query

本文链接：https://blog.csdn.net/HappyTown/article/details/3221356

版权

Perl 专栏收录该内容

0 篇文章 0 订阅

订阅专栏

#!perl
use Net::DNS;

my $res = Net::DNS::Resolver->new;
my $query = $res->search("4.2.2.4");

if ($query) {
        foreach my $rr ($query->answer) {
        next unless $rr->type eq "PTR";
        print $rr->ptrdname, "/n";
        }
    } else {
       warn "query failed:", $res->errorstring, "/n";
    }