欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Perl中使用MIME::Lite發(fā)送郵件實(shí)例

 更新時(shí)間:2014年09月17日 10:17:48   作者:鄉(xiāng)村運(yùn)維  
這篇文章主要介紹了Perl中使用MIME::Lite發(fā)送郵件實(shí)例,本文介紹了使用sendmail方式發(fā)送、發(fā)送HTML格式郵件、smtp方式發(fā)送郵件等內(nèi)容,需要的朋友可以參考下

有時(shí)候我們?cè)诓渴鹉_本的時(shí)候,我們想知道,我們的程序執(zhí)行的怎么樣了,想得到執(zhí)行的結(jié)果,這樣我們也能放心很多是吧,那么在程序執(zhí)行成功或失敗的時(shí)候能夠給我沒(méi)發(fā)個(gè)郵件很是很不錯(cuò)的。

其實(shí)利用perl發(fā)郵件的方法有很多種,包括你在cpan上搜索mail關(guān)鍵字是一大堆,經(jīng)過(guò)實(shí)踐,MIME::Lite用來(lái)發(fā)郵件還是很合適的,最不可思議的是它可以幫你輕松的發(fā)送帶有附件的郵件哦。

下面我們就以MIME::Lite發(fā)郵件為例:

在cpan上面有關(guān)于它的詳細(xì)的用法(http://search.cpan.org/~rjbs/MIME-Lite-3.028/lib/MIME/Lite.pm)

它發(fā)郵件的方式有兩種,第一種最簡(jiǎn)單就是利用系統(tǒng)自身的mail程序,比如sendmail來(lái)進(jìn)行,運(yùn)行sendmail當(dāng)然也許要具有root的權(quán)限了

另一個(gè)就是通過(guò)smtp的方式了,我們會(huì)以網(wǎng)易的163郵箱為例說(shuō)明。

我們先以默認(rèn)發(fā)送方式(sendmail)為例說(shuō)明:

復(fù)制代碼 代碼如下:

#!/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 => ‘a(chǎn)ttachment',
Filename => ‘other.png',
Path => ‘/home/king/perl/logo.png'
);

$msg->send;


再來(lái)一個(gè)html格式的:

復(fù)制代碼 代碼如下:

#!/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 => ‘a(chǎn)ttachment',
Filename => ‘other.png',

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

$msg->send;

下面看看怎么用smtp的方式發(fā)送:

復(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 => ‘a(chǎn)ttachment',
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;

是不是很簡(jiǎn)單呢?

相關(guān)文章

  • Perl6中的垃圾收集

    Perl6中的垃圾收集

    今天小編就為大家分享一篇關(guān)于perl6垃圾收集的文章,小編覺(jué)得內(nèi)容挺不錯(cuò)的,現(xiàn)在分享給大家,具有很好的參考價(jià)值,需要的朋友一起跟隨小編來(lái)看看吧
    2018-10-10
  • Perl哈希表用法解析

    Perl哈希表用法解析

    Perl語(yǔ)言有很多值得學(xué)習(xí)的地方,那么你對(duì)Perl哈希表的概念是否熟悉呢,這里和大家分享一下,希望本文的介紹能讓你有所收獲
    2013-02-02
  • perl文件讀取的幾種處理方式小結(jié)

    perl文件讀取的幾種處理方式小結(jié)

    perl打開(kāi)文件后,可以有幾種方式對(duì)文件進(jìn)行讀取處理(根據(jù)文件大小,文件內(nèi)容的特征和其它要處理的方式)
    2013-02-02
  • perl 采集入庫(kù)腳本分享

    perl 采集入庫(kù)腳本分享

    這篇文章主要介紹了perl 采集入庫(kù)腳本分享,本文是以前自己用的腳本,使用的Mysql數(shù)據(jù)庫(kù),需要的朋友可以參考下
    2014-09-09
  • Perl刪除前導(dǎo)和拖尾空白(刪除左右空格、空白字符)

    Perl刪除前導(dǎo)和拖尾空白(刪除左右空格、空白字符)

    這篇文章主要介紹了Perl刪除前導(dǎo)和拖尾空白(刪除左右空格、空白字符),本文給出了多個(gè)方法實(shí)現(xiàn)解決這個(gè)需求,需要的朋友可以參考下
    2015-06-06
  • Perl使用nginx FastCGI環(huán)境做WEB開(kāi)發(fā)實(shí)例

    Perl使用nginx FastCGI環(huán)境做WEB開(kāi)發(fā)實(shí)例

    這篇文章主要介紹了Perl使用nginx FastCGI環(huán)境做WEB開(kāi)發(fā)實(shí)例,實(shí)現(xiàn)了路由系統(tǒng)和模板系統(tǒng),需要的朋友可以參考下
    2014-06-06
  • perl調(diào)用外部命令(g)awk的方法

    perl調(diào)用外部命令(g)awk的方法

    perl為行讀取方式,有著強(qiáng)大的對(duì)行處理的能力,同樣,通過(guò)內(nèi)部命令和巧妙的編程技巧,其對(duì)列的處理能力同樣不可小覷
    2013-02-02
  • 用python下載百度文庫(kù)的代碼

    用python下載百度文庫(kù)的代碼

    一個(gè)用python下載百度文庫(kù)的代碼,需要的同志請(qǐng)修改,下面有提示
    2012-08-08
  • perl獲取日期與時(shí)間的實(shí)例代碼

    perl獲取日期與時(shí)間的實(shí)例代碼

    perl獲取日期與時(shí)間的例子,供大家學(xué)習(xí)參考
    2013-02-02
  • Perl中的10個(gè)操作日期和時(shí)間的CPAN模塊介紹

    Perl中的10個(gè)操作日期和時(shí)間的CPAN模塊介紹

    這篇文章主要介紹了Perl中的10個(gè)操作日期和時(shí)間的CPAN模塊介紹,本文介紹了Date::Manip、DateTime、Time::Format、Time::Interval、Date::Convert、Benchmark、Time::Normalize、Regexp::Common::time等10個(gè)模塊,需要的朋友可以參考下
    2015-02-02

最新評(píng)論