Perl -- 使用Perl 读取和发送邮件

使用POP3读取邮件

要读取邮件，可以下载 Net::POP3 模组。

模组相关介绍以及下载地址: http://search.cpan.org/~gbarr/libnet-1.19/Net/POP3.pm

#!/usr/local/bin/perl
#***********************************************************************
# [Author]:oscar999
#
#***********************************************************************

use strict;
use Net::POP3;

our $mail_host  = 'XXXXXXXX';
our $mail_login = 'XXXXXXXX';
our $mail_pass  = 'XXXXXXXX';

my $pop = Net::POP3->new($mail_host) or die "Can't connect to $mail_host";
if($pop->login($mail_login,$mail_pass)>0)
{
my $msgnums = $pop->list;
foreach my $msgnum (keys %$msgnums) {
my $msg = $pop->get($msgnum);
print($msgnum."\n");
print (@$msg);
}
}
$pop->quit;

这里的$msgnums 是一个哈希表(hash)类型的数据。

key 值（对应上面的$msgnum）是没有删除的邮件的编号(形如 1, 2, ..... )

而对应的value（对应到上面的$msg) 是一个数组。包含了文件头和文件的内容。

my $msg = $pop->get(1);
print (@$msg);

如果取所有邮件较慢的话， 可以直接取一封邮件看看就知道了。

要详细的读取这份邮件的内容，可以使用 Mail::Message对上面的msg array 进行转型。

Mail::Message的下载和介绍：

http://search.cpan.org/~markov/Mail-Box-2.110/lib/Mail/Message.pod

实例：

my $msg = $pop->get(1);
print (@$msg);
my $mail_msg =  Mail::Message->read($msg);
my $subject = $mail_msg->subject;
my $revtime = $mail_msg->timestamp;
print("subject=$subject\n");
print("revtime=$revtime\n");

使用MIME::LITE 发信

MIME::Lite 是比较早使用的Perl 发信的模块， 但是现在已经不推荐使用了。

官方的介绍是说： 此模块尚会更新一些小bug, 但是不会做大的重构， 推荐使用Email::MIME 或者 MIME::Entity 或者Email::Sender来发信。

不过此处还是介绍一下。

模块介绍与下载地址：

http://search.cpan.org/~rjbs/MIME-Lite-3.030/lib/MIME/Lite.pm

直接看示例：

#!/usr/local/bin/perl
#***********************************************************************
# [Author]:oscar999
#
#***********************************************************************
use MIME::Lite;
$msg = MIME::Lite->new(
From     => 'me@myhost.com',
To       => 'you@yourhost.com',
Cc       => 'some@other.com, some@more.com',
Subject  => 'Helloooooo, nurse!',
Type     => 'image/gif',
Encoding => 'base64',
Path     => 'hellonurse.gif'
);
$msg->send('smtp','some.host'); # host like smtp.xxxxx.xx

也可以这样：

MIME::Lite->send('smtp', 'some.host', Timeout=>60);
$msg define
.................
$msg->send();

使用 Email::MIME 和 Email::Sender

Email::MIME和Email::Sender 的模组地址是：

http://search.cpan.org/~rjbs/Email-MIME-1.925/lib/Email/MIME.pm
http://search.cpan.org/~rjbs/Email-Sender-1.300006/lib/Email/Sender.pm
1. 构造 Email Message

use Email::MIME;
my $parsed = Email::MIME->new($message);

my @parts = $parsed->parts; # These will be Email::MIME objects, too.
my $decoded = $parsed->body;
my $non_decoded = $parsed->body_raw;

my $content_type = $parsed->content_type;

2. 使用 Email sender 发信

use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP qw();
use Try::Tiny;

try {
sendmail(
$message,
{
from => $SMTP_ENVELOPE_FROM_ADDRESS,
transport => Email::Sender::Transport::SMTP->new({
host => $SMTP_HOSTNAME,
port => $SMTP_PORT,
})
}
);
} catch {
warn "sending failed: $_";
};