脚本之家 服务器常用软件
快捷导航
您的位置：首页 → 脚本专栏 → perl → Perl使用MIME::Lite发送邮件

Perl中使用MIME::Lite发送邮件实例

 更新时间：2014年09月17日 10:17:48   作者：乡村运维  
这篇文章主要介绍了Perl中使用MIME::Lite发送邮件实例,本文介绍了使用sendmail方式发送、发送HTML格式邮件、smtp方式发送邮件等内容,需要的朋友可以参考下

有时候我们在部署脚本的时候，我们想知道，我们的程序执行的怎么样了，想得到执行的结果，这样我们也能放心很多是吧，那么在程序执行成功或失败的时候能够给我没发个邮件很是很不错的。

其实利用perl发邮件的方法有很多种，包括你在cpan上搜索mail关键字是一大堆，经过实践，MIME：：Lite用来发邮件还是很合适的，最不可思议的是它可以帮你轻松的发送带有附件的邮件哦。

下面我们就以MIME：：Lite发邮件为例：

在cpan上面有关于它的详细的用法（http://search.cpan.org/~rjbs/MIME-Lite-3.028/lib/MIME/Lite.pm）

它发邮件的方式有两种，第一种最简单就是利用系统自身的mail程序，比如sendmail来进行，运行sendmail当然也许要具有root的权限了

另一个就是通过smtp的方式了，我们会以网易的163邮箱为例说明。

我们先以默认发送方式（sendmail）为例说明：

复制代码 代码如下:

#!/usr/bin/perl -w
use MIME::Lite;
my    $msg = MIME::Lite->new(
From     => ‘chenqing663@163.com',

To       => ‘chenqing663@foxmail.com',

Cc       => ‘some@other.com, some@more.com',
Subject  => ‘hello，my first mail from chenqing.org',
Type  => ‘multipart/mixed',
Data =>' other data'
);

$msg->attach(
Type     => ‘image/png',
Disposition => ‘attachment',
Filename => ‘other.png',
Path => ‘/home/king/perl/logo.png'
);

$msg->send;


再来一个html格式的：

复制代码 代码如下:

#!/usr/bin/perl -w
use MIME::Lite;
my    $msg = MIME::Lite->new(
From     => ‘chenqing663@163.com',

To       => ‘chenqing663@foxmail.com',

Cc       => ‘some@other.com, some@more.com',
Subject  => ‘hello，my first mail from chenqing.org',
Type  => ‘multipart/mixed',
Data =>' other data'
);

$msg->attach(
Type => ‘text/html',
Data => qq{
<body>
这是我的 <b>good</b> image:
<img src=”cid:logo.png”>
</body>
},
);

$msg->attach(
Type     => ‘image/png',
Disposition => ‘attachment',
Filename => ‘other.png',

Id => ‘logo.png',
Path => ‘/home/king/perl/logo.png'
);

$msg->send;

下面看看怎么用smtp的方式发送：

复制代码 代码如下:

#!/usr/bin/perl -w

use MIME::Lite;

use MIME::Base64;
use Authen::SASL;
my $host='smtp.163.com';
my $pass='yourpass';
my $user='xxx@163.com';
my    $msg = MIME::Lite->new(
From     => ‘xxx@163.com',

To       => ‘chenqing663@foxmail.com',

Cc       => ‘some@other.com, some@more.com',
Subject  => ‘hello，my first mail from chenqing.org',
Type  => ‘multipart/mixed',
Data =>' other data'
);

$msg->attach(
Type => ‘text/html',
Data => qq{
<body>
这是我的 <b>good</b> image:
<img src=”cid:logo.png”>
</body>
},
);

$msg->attach(
Type     => ‘image/png',
Disposition => ‘attachment',
Filename => ‘other.png',

Id => ‘logo.png',
Path => ‘/home/king/perl/logo.png'
);

MIME::Lite->send(‘smtp', $host, Timeout=>60,    AuthUser=>$user, AuthPass=>$pass);
$msg->send;

是不是很简单呢？

相关文章

  • Perl命令行应用程序详解

    Perl命令行应用程序详解

    这篇文章主要介绍了Perl命令行应用程序详解,本文大量讲解了perl的命令行参数和一句话实现的一些功能,需要的朋友可以参考下
    2015-02-02
  • Perl脚本实现递归遍历目录下的文件

    Perl脚本实现递归遍历目录下的文件

    这篇文章主要介绍了Perl脚本实现递归遍历目录下的文件,本文直接给出实现代码,代码中包含明细注释,需要的朋友可以参考下
    2015-04-04
  • Perl图形化包管理工具PPM学习使用笔记

    Perl图形化包管理工具PPM学习使用笔记

    这篇文章主要介绍了Perl图形化包管理工具PPM学习使用笔记,本文详细讲解了什么是PPM、PPM界面的功能按钮说明、PPM如何安装卸载包等内容,需要的朋友可以参考下
    2015-06-06
  • perl uc,lc,ucfirst,lcfirst大小写转换函数

    perl uc,lc,ucfirst,lcfirst大小写转换函数

    这篇文章主要介绍了perl 大小写字母转换函数,需要的朋友可以参考下
    2017-10-10
  • perl哈希hash的常见用法介绍

    perl哈希hash的常见用法介绍

    哈希在perl是非常重要且常用的，本文为大家介绍一些常见的用法，供大家学习参考
    2013-02-02
  • Perl split字符串分割函数用法指南

    Perl split字符串分割函数用法指南

    本文向大家简单介绍一下Perl split函数的用法，Perl中的一个非常有用的函数是Perl split函数-把字符串进行分割并把分割后的结果放入数组中
    2013-02-02
  • perl脚本实现限制ssh最大登录次数（支持白名单）

    perl脚本实现限制ssh最大登录次数（支持白名单）

    这篇文章主要介绍了perl脚本实现限制ssh最大登录次数,脚本支持支持白名单设置,例如root可以不限制登录次数,需要的朋友可以参考下
    2014-07-07
  • Perl哈希表用法解析

    Perl哈希表用法解析

    Perl语言有很多值得学习的地方，那么你对Perl哈希表的概念是否熟悉呢，这里和大家分享一下，希望本文的介绍能让你有所收获
    2013-02-02
  • Perl 和 StrawberryPerl 与 ActivePerl 的区别详解

    Perl 和 StrawberryPerl 与 ActivePerl 的区别详解

    这篇文章主要介绍了Perl 和 StrawberryPerl 与 ActivePerl 的区别详解,本文给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下
    2020-12-12
  • Perl中的正则表达式介绍

    Perl中的正则表达式介绍

    正则表达式是 Perl 语言的一大特色，也是 Perl 程序中的一点难点，不过如果大家能够很好的掌握他，就可以轻易地用正则表达式来完成字符串处理的任务，当然在 CGI 程序设计中就更能得心应手了
    2013-07-07

最新评论