Perl 发送邮件

Perl

Perl 教程 Perl 简介 Perl 环境安装 Perl 基础语法 Perl 数据类型 Perl 变量 Perl 标量 Perl 数组 Perl 哈希 Perl 条件语句 Perl 循环 Perl 运算符 Perl 时间日期 Perl 子程序(函数) Perl 引用 Perl 格式化输出 Perl 文件操作 Perl 目录操作 Perl 错误处理 Perl 特殊变量 Perl 正则表达式 Perl 发送邮件 Perl Socket 编程 Perl 面向对象 Perl 数据库连接 Perl CGI编程 Perl 包和模块 Perl 进程管理 Perl POD 文档

Perl 发送邮件

如果你的程序在 Linux/Unix 系统上运行，你就可以在 Perl 中使用 sendmail 工具来发送邮件。

以下是一个简单的脚本实例用于发送邮件：

#!/usr/bin/perl

# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱
$to = '626512443@.com';
#发送者邮箱
$from = 'test@web3.com';
#标题
$subject = '芝麻教程 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
 
# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱
$to = '626512443@qq.com';
#发送者邮箱
$from = 'test@web3.xin';
#标题
$subject = '芝麻教程 Perl 发送邮件测试';
$message = '<h1>这是一封使用 Perl 发送的邮件<h1><p>你好，我来自芝麻教程，地址是:http://www.web3.xin。</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;
 
# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱
$to = '626512443@qq.com';
# 抄送者，多个使用逗号隔开
# $cc = 'test1@web3.xin, test2@web3.xin';

#发送者邮箱
$from = 'test@web3.xin';
#标题
$subject = '芝麻教程 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;
 
# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱
$to = '626512443@qq.com';
# 抄送者，多个使用逗号隔开
# $cc = 'test1@web3.xin, test2@web3.xin';

#发送者邮箱
$from = 'test@web3.xin';
#标题
$subject = '芝麻教程 Perl 发送邮件测试';
$message = '<h1>这是一封使用 Perl 发送的邮件<h1><p>使用了 MIME::Lite 模块。</p><p>来自芝麻教程，地址是:http://www.web3.xin。</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;
 
# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱
$to = '626512443@qq.com';
# 抄送者，多个使用逗号隔开
# $cc = 'test1@web3.xin, test2@web3.xin';

#发送者邮箱
$from = 'test@web3.xin';
#标题
$subject = '芝麻教程 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        => './web3.txt',   # 当前目录下
             Filename    => 'web3.txt',
             Disposition => 'attachment'
            );
$msg->send;
print "邮件发送成功\n";

执行成功后，查看邮件内容，如下所示：

你可以通过使用多个 $msg->attach 来添加多个附件。

上一篇:Perl 正则表达式

下一篇:Perl Socket 编程

我要发贴

Perl