perl - 指定された「ホスト名」がPerl経由のCNAMEであるかどうかを判断できますか？

Question

仕事で私はこのようなものを持っています...

$ host www.something.com
www.something.com is an alias for some.other.address
some.other.address is an alias for one.more.address
one.more.address has address xxx.xxx.xxx.xxx

Perlで、www.something.comそれがCNAME、Aレコードなどであるかどうかを確認する方法が欲しいのですが。

Answer 1

use Net::DNS qw();
my $query = Net::DNS::Resolver->new->search('conferences.yapceurope.org');

if ($query) {
    foreach my $rr ($query->answer) {
        next unless 'CNAME' eq $rr->type;
        print $rr->cname;
    }
} else {
    warn sprintf "query failed: %s\n", $res->errorstring;
}