perl傳送郵件指令碼

#

!/usr/bin/perl

usenet

::smtp;

usemime

::base64;

################

# 自動簽到指令碼 #

################

$host='

10.182.131.153';

#smtp伺服器位址

###########################

## $host: smtp伺服器

# $auth: 郵件賬戶

# $password: 郵件賬戶密碼

# $to: 要傳送的目標

# $mail_body: 郵件內容

############################

subsend_mail

#獲取命令列引數if(

@argv

<1)

else

#開啟配置檔案和日誌檔案

open

conf_file

,$conf_file

or die

"open config file [$conf_file] failed! \n";

open

log_file,'

>>send.log

'or

die"

open send.log failed! $!\n";

while

(<

log_file

>

) @line

=split/\s

+/,$_;if

(@line!=4

) #傳送郵件

send_mail(

$host

,$line[0

],$line[1

],$line[2

],$line[3

]);print

log_file "[

".localtime

() .

"] send_mail($host, $line[0], $line[1], $line[2], $line[3]); \n";

}close

conf_file;

close

log_file;

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發郵件指令碼

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