perl發郵件指令碼

作者：belltoy | 聲明：可以轉載, 轉載時務必以超連結形式標明文章原始地址和作者資訊及著作權聲明
網址：http://www.belltoy.net/send-mail-with-perl.html

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

 

perl指令碼：

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475

#!/usr/bin/perluse Net::SMTP;use MIME::Base64; ################# 自動簽到指令碼 ################# $host = '10.182.131.153'; #SMTP伺服器位址 ############################# $host: smtp伺服器# $auth: 郵件賬戶# $password: 郵件賬戶密碼# $to: 要發送的目標# $mail_body: 郵件內容############################ sub send_mail { my($host, $auth, $password, $to, $mail_body) = @_; my $smtp = Net::SMTP->new( Host => $host, Hello => $host, Timeout => 30, Debug => 1 );  $smtp->auth(substr($auth, 0, index($auth, '@')), $password); $smtp->mail($auth); $smtp->to($to); $smtp->bcc($auth); $smtp->data(); $smtp->datasend("Content-Type:text/plain;charset=GB2312/n"); $smtp->datasend("Content-Transfer-Encoding:base64/n"); $smtp->datasend("From:$auth /n"); $smtp->datasend("To:$to /n"); $smtp->datasend("Subject:=?gb2312?B?".encode_base64($mail_body,'')."?=/n/n"); $smtp->datasend("/n");  $smtp->datasend(encode_base64($mail_body,'')." /n"); $smtp->dataend(); $smtp->quit;} #擷取命令列參數if(@ARGV < 1) { $conf_file = './mailusers.conf'; #預設設定檔}else { $conf_file = $ARGV[0]; #擷取設定檔名} #開啟設定檔和記錄檔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>) { chomp; if($_ =~ /^#+/) { next; #跳過注釋行 } @line = split //s+/, $_;if(@line != 4) { next; #跳過空行} #發送郵件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;

自動發信的賬戶和目標都配在設定檔裡，設定檔格式如下mails.conf：

#<auth> <password> <To> <mail body>zzq@nlgx.dmp 000000 qiandao@nlgx.dmp 簽到

然後就是在 crontab 裡配自動運行是時間了：

#分 時 日 月 星期 命令41 8 * * 1-5 /usr/bin/perl /home/aig/.run/checkin.pl /home/aig/.run/mails.conf58 13 * * 1-5 /usr/bin/perl /home/aig/.run/checkin.pl /home/aig/.run/mails.conf