Perl 发送邮件
如果你的程序在 Linux/Unix 系统上运行,你就可以在 Perl 中使用
sendmail
工具来发送邮件。
以下是一个简单的脚本实例用于发送邮件:
实例
#!/usr/bin/perl
$to
=
'
[email protected]
'
;
$from
=
'
[email protected]
'
;
$subject
=
'
云搜索MX教程 Perl 发送邮件测试
'
;
$message
=
'
这是一封使用 Perl 发送的邮件。
'
;
open
(
MAIL
,
"
|/usr/sbin/sendmail -t
"
)
;
print
MAIL
"
To:
$to
\n
"
;
print
MAIL
"
From:
$from
\n
"
;
print
MAIL
"
Subject:
$subject
\n
\n
"
;
print
MAIL
$message
;
close
(
MAIL
)
;
print
"
邮件发送成功
\n
"
;
执行以上程序,输出结果为:
邮件发送成功
正常情况下,以上邮件会被 QQ 邮箱拦截,我么可以把它加入白名单,操作方式可以点击:
https://kf.qq.com/faq/120322fu63YV130805rYRFzu.html
加入白名单后就可以正常接收邮件了。
发送 HTML 格式邮件
我们可以在邮件头部添加
Content-type: text/html\n
来发送 HTML 格式的邮件,实例如下:
实例
#!/usr/bin/perl
$to
=
'
[email protected]
'
;
$from
=
'
[email protected]
'
;
$subject
=
'
云搜索MX教程 Perl 发送邮件测试
'
;
$message
=
'
<h1>这是一封使用 Perl 发送的邮件<h1><p>你好,我来自云搜索MX教程,地址是:http://www.yssmx.com。</p>
'
;
open
(
MAIL
,
"
|/usr/sbin/sendmail -t
"
)
;
print
MAIL
"
To:
$to
\n
"
;
print
MAIL
"
From:
$from
\n
"
;
print
MAIL
"
Subject:
$subject
\n
"
;
print
MAIL
"
Content-type: text/html
\n
"
;
print
MAIL
$message
;
close
(
MAIL
)
;
print
"
邮件发送成功
\n
"
;
执行成功后,查看邮件内容,如下所示:
使用 MIME::Lite 模块
如果你使用的是 window 系统,没有 sendmail 工具。这时你就可以使用 perl 的 MIME:Lite 模块作为邮件客户端来发送邮件。
MIME:Lite 模块 下载地址为:
MIME-Lite-3.030.tar.gz
。
这里我们直接用 cpan 来安装(需要 root 权限),不用下载:
$ cpan -i MIME::Lite
……
/usr/bin/make install -- OK
安装成功后,我们来演示一个实例:
实例
#!/usr/bin/perl
use MIME::Lite
;
$to
=
'
[email protected]
'
;
$from
=
'
[email protected]
'
;
$subject
=
'
云搜索MX教程 Perl 发送邮件测试
'
;
$message
=
'
这是一封使用 Perl 发送的邮件,使用了 MIME::Lite 模块。
'
;
$msg
=
MIME::Lite
->
new
(
From
=>
$from
,
To
=>
$to
,
Cc
=>
$cc
,
Subject
=>
$subject
,
Data
=>
$message
)
;
$msg
->
send
;
print
"
邮件发送成功
\n
"
;
执行成功后,查看邮件内容,如下所示:
发送 HTML 格式邮件
我们可以在邮件头部添加
Content-type: text/html\n
来发送 HTML 格式的邮件,实例如下:
实例
#!/usr/bin/perl
use MIME::Lite
;
$to
=
'
[email protected]
'
;
$from
=
'
[email protected]
'
;
$subject
=
'
云搜索MX教程 Perl 发送邮件测试
'
;
$message
=
'
<h1>这是一封使用 Perl 发送的邮件<h1><p>使用了 MIME::Lite 模块。</p><p>来自云搜索MX教程,地址是:http://www.yssmx.com。</p>
'
;
$msg
=
MIME::Lite
->
new
(
From
=>
$from
,
To
=>
$to
,
Cc
=>
$cc
,
Subject
=>
$subject
,
Data
=>
$message
)
;
$msg
->
attr
(
"
content-type
"
=>
"
text/html
"
)
;
$msg
->
send
;
print
"
邮件发送成功
\n
"
;
执行成功后,查看邮件内容,如下所示:
发送带有附件的邮件
发送带有附件的邮件实例如下:
实例
#!/usr/bin/perl
use MIME::Lite
;
$to
=
'
[email protected]
'
;
$from
=
'
[email protected]
'
;
$subject
=
'
云搜索MX教程 Perl 发送邮件测试
'
;
$message
=
'
这是一封使用 Perl 发送的邮件,使用了 MIME::Lite 模块,包含了附件。
'
;
$msg
=
MIME::Lite
->
new
(
From
=>
$from
,
To
=>
$to
,
Cc
=>
$cc
,
Subject
=>
$subject
,
Type
=>
'
multipart/mixed
'
)
;
$msg
->
attach
(
Type
=>
'
TEXT
'
,
Data
=>
$message
)
;
$msg
->
attach
(
Type
=>
'
TEXT
'
,
Path
=>
'
./yssmx.txt
'
,
Filename
=>
'
yssmx.txt
'
,
Disposition
=>
'
attachment
'
)
;
$msg
->
send
;
print
"
邮件发送成功
\n
"
;
执行成功后,查看邮件内容,如下所示:
你可以通过使用多个 $msg->attach 来添加多个附件。