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

网络编程 Perl中使用MIME::Lite发送邮件实例 06-21

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

其实利用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信号处理学习简单小结
Unix下常见的处理信号NoNameDefaultActionDescription1SIGHUPterminateprocessterminallinehangup2SIGINTterminateprocessinterruptprogram3SIGQUITcreatecoreimagequitprogram4SIGILLcreatecoreimageillega

perl AnyEvent简单介绍和入门知识
什么是面向事件的编程(事件驱动的编程):编程中所有的程序是由事件决定?可以是由用户操作(键盘,鼠标)，也可以是由其他程序和流的到达或者操作系统

Perl AnyEvent中的watcher实例
这几天看了下perl的事件编程框架AnyEvent,重点参考了一下几篇文章：http://search.cpan.org/~mlehmann/AnyEvent-7.05/lib/AnyEvent.pmhttp://search.cpan.org/~mlehmann/AnyEvent-7.05/lib

编辑：广州鸿名健康科技有限公司

标签：是由,发邮件,程序,为例,这是