Perl
+ -

Perl 发送邮件

2019-09-09 7 0

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

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

实例

#!/usr/bin/perl
# 接收邮箱,这里我设置为我的 QQ 邮箱,你需要修改它为你自己的邮箱
$to = 'admin@qq.com';
#发送者邮箱
$from = 'test@http://www.bytekits.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 = 'admin@qq.com';
#发送者邮箱
$from = 'test@http://www.bytekits.com';
#标题
$subject = '字节流 Perl 发送邮件测试';
$message = '<h1>这是一封使用 Perl 发送的邮件<h1><p>你好,我来自字节流,地址是:http://www.bytekits.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;
# 接收邮箱,这里我设置为我的 QQ 邮箱,你需要修改它为你自己的邮箱
$to = 'admin@qq.com';
# 抄送者,多个使用逗号隔开
# $cc = 'test1@http://www.bytekits.com, test2@http://www.bytekits.com';
#发送者邮箱
$from = 'test@http://www.bytekits.com';
#标题
$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 = 'admin@qq.com';
# 抄送者,多个使用逗号隔开
# $cc = 'test1@http://www.bytekits.com, test2@http://www.bytekits.com';
#发送者邮箱
$from = 'test@http://www.bytekits.com';
#标题
$subject = '字节流 Perl 发送邮件测试';
$message = '<h1>这是一封使用 Perl 发送的邮件<h1><p>使用了 MIME::Lite 模块。</p><p>来自字节流,地址是:http://www.bytekits.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;
# 接收邮箱,这里我设置为我的 QQ 邮箱,你需要修改它为你自己的邮箱
$to = 'admin@qq.com';
# 抄送者,多个使用逗号隔开
# $cc = 'test1@http://www.bytekits.com, test2@http://www.bytekits.com';
#发送者邮箱
$from = 'test@http://www.bytekits.com';
#标题
$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        => './bytekits.txt',   # 当前目录下
             Filename    => 'bytekits.txt',
             Disposition => 'attachment'
            );
$msg->send;
print "邮件发送成功\n";

执行成功后,查看邮件内容.

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

0 篇笔记 写笔记

C# 索引器(Indexer)
索引器(Indexer) 允许一个对象可以像数组一样被索引。当您为类定义一个索引器时,该类的行为就会像一个 虚 拟数组(virtualarray) 一样。您可以使用数组访问运算符([ ])来访问该类的实例。语法一维索引器的语法如下:element-type this[int index] { /......
Perl 引用
引用就是指针,Perl 引用是一个标量类型可以指向变量、数组、哈希表(也叫关联数组)甚至子程序,可以应用在程序的任何地方。创建引用定义变量的时候,在变量名前面加个,就得到了这个变量的一个引用,比如:$scalarref = $foo; # 标量变量引用$arrayref = @ARG......
Perl POD 文档
Perl 中可以在模块或脚本中嵌入 POD(Plain Old Documentation) 文档。POD 是一种简单而易用的标记型语言(置标语言)。POD 文档使用规则:POD 文档以 =head1 开始, =cut 结束, =head1 前与 =cut 后添加一空行。Perl 会忽略 POD 中......
Ruby 方法
Ruby 方法与其他编程语言中的函数类似。Ruby 方法用于捆绑一个或多个重复的语句到一个单元中。方法名应以小写字母开头。如果您以大写字母作为方法名的开头,Ruby 可能会把它当作常量,从而导致不正确地解析调用。方法应在调用之前定义,否则 Ruby 会产生未定义的方法调用异常。语法def metho......
Perl 面向对象
Perl 中有两种不同地面向对象编程的实现:一是基于匿名哈希表的方式,每个对象实例的实质就是一个指向匿名哈希表的引用。在这个匿名哈希表中,存储来所有的实例属性。二是基于数组的方式,在定义一个类的时候,我们将为每一个实例属性创建一个数组,而每一个对象实例的实质就是一个指向这些数组中某一行索引的引用。在......
Python3 运算符
本章节主要说明Python的运算符。举个简单的例子 4 +5 = 9 。 例子中, 4 和 5 被称为 操 作数,”+ “ 称为运算符。Python语言支持以下类型的运算符:算术运算符比较(关系)运算符赋值运算符逻辑运算符位运算符成员运算符身份运算符运算符优先级接下来让我们一个个来学习Python的......
Java rint() 方法
rint() 方法返回最接近参数的整数值。语法该方法有以下几种语法格式:double rint(double d)参数double 原始数据类型。返回值返回 double 类型数组,是最接近参数的整数值。实例实例public class Test{ public static void mai......
MySQL PHP语法
MySQL 可应用于多种语言,包括 PERL, C, C++, JAVA 和 PHP。 在这些语言中,Mysql在PHP的web开发中是应用最广泛。在本教程中我们大部分实例都采用了 PHP 语言。如果你想了解 Mysql 在 PHP 中的应用,可以访问我们的 PHP教程。PHP提供了多种方式来访问和......
Ruby CGI方法
以下为CGI类的方法列表:序号方法描述 1CGI::new([ level=”query”]) 创建 CGI 对象。query可以是以下值: query: 没有 HTML 生成输出 html3: HTML3.2 html4: HTML4.0 Strict html4Tr: HTM......
Ruby 变量
/ruby/ruby-variable.html变量是持有可被任何程序使用的任何数据的存储位置。Ruby 支持五种类型的变量。一般小写字母、下划线开头:变量(Variable)。$ 开头:全局变量(Global variable)。@ 开头:实例变量(Instance variable)。@@ 开头......
Perl 格式化输出
Perl 是一个非常强大的文本数据处理语言。Perl 中可以使用 format 来定义一个模板,然后使用 write 按指定模板输出数据。Perl 格式化定义语法格式如下:format FormatName =fieldlinevalue_one, value_two, value_threefie......
Java 运算符
计算机的最基本用途之一就是执行数学运算,作为一门计算机语言,Java也提供了一套丰富的运算符来操纵变量。我们可以把运算符分成以下几组:算术运算符关系运算符位运算符逻辑运算符赋值运算符其他运算符算术运算符算术运算符用在数学表达式中,它们的作用和在数学中的作用一样。下表列出了所有的算术运算符。表格中的实......
MySQL WHERE 子句
我们知道从 MySQL 表中使用 SQL SELECT 语句来读取数据。如需有条件地从表中选取数据,可将 WHERE 子句添加到 SELECT 语句中。语法以下是 SQL SELECT 语句使用 WHERE 子句从数据表中读取数据的通用语法:SELECT field1, field2,...fiel......
ADO.Net Web表单实例
可以创建一个具有ADO.NET连接性的Web表单。具有表单控件的简单Web表单可以提交给服务器。 ADO.NET可将提交的值存储到SQLServer数据库中。在这里,我们创建一个连接到SQL Server数据库的Web表单应用程序。首先打开 Visual Studio 创建一个名称为: AdoN......
Python3 字符串len()方法
Python len() 方法返回对象(字符、列表、元组等)长度或项目个数。语法len()方法语法:len( s )参数s — 对象。返回值返回对象长度。实例以下实例展示了 len() 的使用方法:>>>str = "bytekits">>> ......
取消
感谢您的支持,我会继续努力的!
扫码支持
扫码打赏,你说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

您的支持,是我们前进的动力!