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

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

其实利用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;

是不是很简单呢？

赞 (0)

相关推荐

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

    有时候我们在部署脚本的时候,我们想知道,我们的程序执行的怎么样了,想得到执行的结果,这样我们也能放心很多是吧,那么在程序执行成功或失败的时候能够给我没发个邮件很是很不错的. 其实利用perl发邮件的方法有很多种,包括你在cpan上搜索mail关键字是一大堆,经过实践,MIME::Lite用来发邮件还是很合适的,最不可思议的是它可以帮你轻松的发送带有附件的邮件哦. 下面我们就以MIME::Lite发邮件为例: 在cpan上面有关于它的详细的用法(http://search.cpan.org/~rj

  • python自动化发送邮件实例讲解

    python自动化发送邮件实例讲解

    在python中,通过如下两个模块可以实现邮件的自动化操作 smtplib email smtplib模块是对SMTP协议的封装,用于发送邮件:email模块用于构建邮件内容,支持以下3种形式的邮件 纯文本 html 带附件 首先来看下邮件的构建,对于一封邮件,需要指定发件人,收件人,主题,正文等内容,以最简单的纯文本邮件为例,构建方式如下 >>> from email.mime.text import MIMEText >>> from email.header im

  • Perl中的文件读写学习笔记

    一.打开.关闭文件 语法为open (filevar, filename),其中filevar为文件句柄,或者说是程序中用来代表某文件的代号,filename为文件名,其路径可为相对路径,亦可为绝对路径. 复制代码 代码如下: open(FILE1,"file1");  open(FILE1, "/u/jqpublic/file1"); 打开文件时必须决定访问模式,在PERL中有三种访问模式:读.写和添加.后两种模式的区别在于写模式将原文件覆盖,原有内容丢失,形式为

  • Linux 中的 Openssl命令及实例代码

    openssl命令的格式是"openssl command command-options args",command部分有很多种命令,这些命令需要依赖于openssl命令才能执行,所以称为伪命令(pseudo-command),每个伪命令都有各自的功能,大部分command都可以直接man command查看命令的用法和功能. OpenSSL是一个强大的安全套接字层密码库,囊括主要的密码算法.常用的密钥和证书封装管理功能及SSL协议,并提供丰富的应用程序供测试或其它目的使用.在Ope

  • Perl中的特殊内置变量详细介绍

    内置变量 $_:先来看一个例子: 复制代码 代码如下: #!/usr/bin/perl -w@array = qw(a b c d);foreach (@array) { print $_," ";} 例子的作用就是定义一个数组并把其中的元素打印出来,这里需要注意的是foreach循环部分,foreach循环的标准格式应该是: 复制代码 代码如下: foreach $element (@array){ ......} 其中数组@array将其中的元素依次赋值给$element,但是在上

  • 详解python 发送邮件实例代码

    python 发送邮件实例 文件形式的邮件 #!/usr/bin/env python3 #coding: utf-8 import smtplib from emailmimetext import MIMEText from emailheader import Header sender = '***' receiver = '***' subject = 'python email test' smtpserver = 'smtpcom' username = '***' passwor

  • Java中Properties类的操作实例详解

    Java中Properties类的操作实例详解

    Java中Properties类的操作实例详解 知识学而不用,就等于没用,到真正用到的时候还得重新再学.最近在看几款开源模拟器的源码,里面涉及到了很多关于Properties类的引用,由于Java已经好久没用了,而这些模拟器大多用Java来写,外加一些脚本语言Python,Perl之类的,不得已,又得重新拾起.本文通过看<Java编程思想>和一些网友的博客总结而来,只为简单介绍Properties类的相关操作.  一.Java Properties类 Java中有个比较重要的类Properti

  • django API 中接口的互相调用实例

    我就废话不多说了,还是直接上代码吧! url = "http://%s:%s/api-token-auth/" % (ip, port) query_args = { "username": username, "password": password } resp = requests.post(url=url, data=query_args) token = json.loads(resp.text)["token"]

  • SpringBoot QQ邮箱发送邮件实例代码

    SpringBoot QQ邮箱发送邮件实例代码

    目录 1.获取QQ邮箱授权码 2.导入邮箱发送依赖启动器 3.配置文件yml添加邮件服务配置 4.编写接口IMailService 5.编写实现MailServiceImpl 6.Controller调用 7.thymeleaf模板 mailTemplate.html 总结 SpringBoot整合邮件任务(QQ邮箱发送) 1.获取QQ邮箱授权码 2.导入邮箱发送依赖启动器 使用定制邮件模板的方法实现通用邮件发送,Thymeleaf构建邮件模板需要一起导入依赖. <!-- Mail --> &

  • C++ 中const修饰虚函数实例详解

    C++ 中const修饰虚函数实例详解 [1]程序1 #include <iostream> using namespace std; class Base { public: virtual void print() const = 0; }; class Test : public Base { public: void print(); }; void Test::print() { cout << "Test::print()" << end

随机推荐