perl - MX 레코드 조회 하기. Net::DNS 모듈 이용. lookup mx records

반응형

• 특정한 도메인으로 이메일을 보낼 때, 해당 도메인의 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";
}

반응형

• 카카오스토리
• 트위터
• 페이스북

'개발이야기' 카테고리의 다른 글

tcpdump - 들어오는 패킷 확인. incoming packet. inbound packet.  (0)	2019.01.18
OSX - apache 웹서버에서 perl cgi 호출시 특정 모듈을 못찾는 경우 해결. 왠지는 잘 모르겠지만...  (0)	2019.01.16
perl - MX 레코드 조회 하기. Net::DNS 모듈 이용. lookup mx records  (0)	2019.01.06
perl - 두개의 배열 합치기. merge two arrays.  (0)	2019.01.05
python - http request 방법 모음. Requests, coreapi, urllib.request, http.client  (0)	2019.01.05
perl - read file line by line  (0)	2019.01.05