perl - send email. 이메일 발송하기.

Net::SMTP 이용

• Net::SMTP 모듈을 이용하여 메일을 보내는 예제
• Debug 메시지를 보여 주기 싫으면 ```Debug => 1``` 부분을 지우면 된다.
• 심플하게 메일을 보내는데 한글이 들어가면 수신 서버에 따라 제대로 처리가 안되는 경우가 있다.
• 가급적이면 MIME 으로 인코딩 해서 보내는 것이 좋다.

use strict;
use warnings;

use Net::SMTP;

my $smtp = Net::SMTP->new('mx1.hanmail.net', Debug => 1);

my $from = 'test@junho85.pe.kr';
my $to = 'junho85@daum.net';

$smtp->mail($from); # from
$smtp->to($to); # to

$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: this is test mail for perl\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;

Mail::Send

이건 From 지정도 어렵고 요즘은 별로 활용 할 만한 곳이 없어 보인다.

http://search.cpan.org/~markov/MailTools-2.20/lib/Mail/Send.pod

참고

• http://search.cpan.org/~shay/libnet-3.11/lib/Net/SMTP.pm
• https://learn.perl.org/examples/email.html
  • Email::MIME, Email::Sender::Simple
• https://www.tutorialspoint.com/perl/perl_sending_email.htm
  • /usr/sbin/sendmail
  • MIME::Lite