Perl中使用MIME::Lite發(fā)送郵件實例
有時候我們在部署腳本的時候，我們想知道，我們的程序執(zhí)行的怎么樣了，想得到執(zhí)行的結果，這樣我們也能放心很多是吧，那么在程序執(zhí)行成功或失敗的時候能夠給我沒發(fā)個郵件很是很不錯的。
其實利用perl發(fā)郵件的方法有很多種，包括你在cpan上搜索mail關鍵字是一大堆，經過實踐，MIME：：Lite用來發(fā)郵件還是很合適的，最不可思議的是它可以幫你輕松的發(fā)送帶有附件的郵件哦。
下面我們就以MIME：：Lite發(fā)郵件為例：
在cpan上面有關于它的詳細的用法（http://search.cpan.org/~rjbs/MIME-Lite-3.028/lib/MIME/Lite.pm）
它發(fā)郵件的方式有兩種，第一種最簡單就是利用系統(tǒng)自身的mail程序，比如sendmail來進行，運行sendmail當然也許要具有root的權限了
另一個就是通過smtp的方式了，我們會以網易的163郵箱為例說明。
我們先以默認發(fā)送方式（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的方式發(fā)送：
#!/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;
是不是很簡單呢？
相關文章
這里主要討論的是當你要傳遞的參數不是僅僅一個的時候，也就是兩個以上，并且他們數據的類型還不一致的時候，我們要遇到的問題2013-03-03
這篇文章主要介紹了perl命令行參數內建數組@ARGV淺析,本文重點在于講解@ARGV的用法,并通過實例來說明,需要的朋友可以參考下2014-06-06
perl常量、多維數組及變量的初始化的例子，供大家學習參考2013-02-02
Linux/Unix下安裝Perl模塊有兩種方法：手工安裝和自動安裝。一是從CPAN上下載需要的模塊，手工編譯、安裝。二是聯上internet，使用一個叫做CPAN的模塊自動完成下載、編譯、安裝的全過程2013-02-02
這篇文章主要介紹了Perl函數(子程序)學習筆記,本文講解了函數定義、函數返回值、函數參數傳遞等內容,需要的朋友可以參考下2014-11-11
Perl設計的初衷是為了更好地處理文本處理任務,但隨著時間的發(fā)展,現在它已經變成了一種強大的一般目的編程語言,Perl是一種高級、通用、解釋型、動態(tài)的編程語言,本文給大家介紹perl 交叉編譯的相關知識,感謝的朋友跟隨小編一起看看吧2024-04-04
Perl實現刪除Windows下的圖片緩存縮略圖Thumbs.db
這篇文章主要介紹了Perl實現刪除Windows下的圖片緩存縮略圖Thumbs.db,本文實現了批量刪除Thumbs.db文件,需要的朋友可以參考下2014-12-12
perl可以使用JSON模塊很方便的處理json的序列化和反序列化,本文通過一個簡單例子給大家介紹的非常詳細,感興趣的朋友跟隨小編一起看看吧2023-12-12
perl控制流介紹(if條件，while,for循環(huán),foreach)
Perl控制流(if條件，while,for循環(huán))，需要的朋友可以參考下2013-02-02
perl比較兩個文件字符串的例子，供大家學習參考2013-02-02