Notice
Recent Posts
Recent Comments
준호씨의 블로그
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 - 두개의 배열 합치기. 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 |
Comments