用Perl傳送郵件小例子

2021-09-22 06:58:26 字數 945 閱讀 8311

據傳,perl傳送郵件有很多方案,但我只會用mail::sender這種方式,也就只能簡單談談這種方式。

在參考眾多網頁後,程式書寫如下:

#

!/usr/bin/perl -w

use mail::sender;

my$sender=mail::sender->new(

) or

die"

can't send mail.\n";

my$msg='

hello,this is a mail built by perl';

$sender->mailmsg(

);$sender->close

();print

"mail sent!\n

";

但是,程式寫好後,執行#perl mail.pl,壞了,報出如下類似錯誤:

can't locate mail/sender.pm in @inc (@inc contains: /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 .) at mail.pl line 5.

begin failed--compilation aborted at mail.pl line 5.

網上一查,原來是要安裝perl的mail模組,自己摸索了步驟如下:

#yum install perl-cpan*

#cpan

cpan[1]>install mail::sender

cpan[2]>quit

之後mail模組就安裝好了,再執行#perl mail.pl,發現郵件已經送到指定郵箱了。

就是這些,雖然途中有點著急上火,但結果還是達成期望了。

Perl傳送郵件

本文簡單的介紹一下使用perl傳送郵件的方法,我們以使用163的smtp伺服器來傳送郵件為例,因為需要使用者驗證,所以前提是我們有163的郵件賬戶。如果 中使用到的perl模組你沒有安裝,那麼執行的時候就會報錯,關於perl模組的安裝方法,參照這裡。usr bin perl w use strict...

perl傳送郵件

在外地出差也搞什麼郵件簽到,真無聊 前一段看歐錦賽,時差還沒調整過來,早上起不來zzzzz 不過上有政策,下有對策嘛 就在伺服器上寫了乙個perl指令碼,用net smtp發郵件,用crontab來定時跑,一下就解決了,哈哈 perl指令碼 usr bin perl use net smtp use...

perl傳送郵件指令碼

usr bin perl usenet smtp usemime base64 自動簽到指令碼 host 10.182.131.153 smtp伺服器位址 host smtp伺服器 auth 郵件賬戶 password 郵件賬戶密碼 to 要傳送的目標 mail body 郵件內容 subsend ...