준호씨의 블로그

• 특정한 도메인으로 이메일을 보낼 때, 해당 도메인의 MX 레코드를 구하고 MX 레코드에 있는 도메인으로 메일을 보내게 된다. (MX 레코드가 없다면 기본 도메인 그대로 이용)
• perl 언어에서 Net::DNS 모듈을 이용해서 구하는 방법을 알아 본다.
• mx 메서드를 이용하면 쉽게 구할 수 있다.
• resolver 의 query 메서드를 이용해서도 구할 수 있다.

#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';

use Net::DNS;

use Data::Dumper;

my $res = Net::DNS::Resolver->new;

my $domain = "daum.net";

# mx 메서드 이용 방법
my @mxs = mx($res, $domain);

for my $mx (@mxs) {
    print $mx->preference, ' ', $mx->exchange, "\n";
}

# query 메서드 이용 방법
my $reply = $res->query($domain, 'MX');

for my $mx ($reply->answer) {
    print $mx->preference, ' ', $mx->exchange, "\n";
}