有时候我们在部署脚本的时候，我们想知道，我们的程序执行的怎么样了，想得到执行的结果，这样我们也能放心很多是吧，那么在程序执行成功或失败的时候能够给我没发个邮件很是很不错的。
其实利用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;
是不是很简单呢？
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！ 如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
更新日志
- 群星-时尚慢摇DJ舞曲《发烧车载中文天碟-调情》非卖品[WAV]
- 潘美辰.2008-全新重声大碟（出道20年精选纪念版）【倍特音乐】【WAV+CUE】
- 罗时丰.2002-唱歌的人（2011再生版）【贝特音乐】【WAV+CUE】
- 罗时丰.2003-唱歌的人台语精选+新歌【贝特音乐】【WAV+CUE】
- 999PUNKSTA《情绪数码故障》[Hi-Res][24bit 48kHz][FLAC/分轨][301.83MB]
- HOYO-MiX《原神-珍珠之歌4 游戏音乐》[320K/MP3][289.48MB]
- 陈崎凡《CHEN》[320K/MP3][81.13MB]
- skt都在哪一年夺冠 英雄联盟skt夺冠赛季介绍
- 炉石传说抢先体验乱斗什么时候结束 深暗领域体验乱斗结束时间
- 炉石传说抢先乱斗卡组有什么 深暗领域抢先体验乱斗卡组推荐
- 荣耀手机腕上最佳搭档 荣耀手表5首销开启
- 雷克沙ARES 6000 C28战神之翼 AMD 9800X3D超强搭档
- 咪咕快游感恩同游，超值回馈尽在咪咕咪粉节！
- 陈崎凡《CHEN》[FLAC/分轨][326.32MB]
- 群星《我们的歌第六季 第2期》[320K/MP3][74.05MB]