Notice
Recent Posts
Recent Comments
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | 4 | 5 | 6 | |
7 | 8 | 9 | 10 | 11 | 12 | 13 |
14 | 15 | 16 | 17 | 18 | 19 | 20 |
21 | 22 | 23 | 24 | 25 | 26 | 27 |
28 | 29 | 30 | 31 |
Tags
- PERL
- 닌텐도스위치
- 이마트트레이더스
- 인그레스
- 맥북
- 구글
- 요리
- game
- Ingress
- Mac
- 프렌즈런
- Java
- 카카오
- 공략
- 클리어
- 유튜브
- 맛집
- Installation
- IntelliJ
- 포탈
- arduino
- Linux
- 게임
- 아이폰
- 판교
- 설치
- Python
- OSX
- Today
- 697
- Total
- 3,227,542
준호씨의 블로그
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 |
0 Comments