利用perl模块发邮件

vim sendmail.pl
#!/usr/bin/perl -w
use MIME::Lite;

sub perl_sendmail {
my $mail_to=shift;
#my $mail_to="$_[0]";
my $from=shift;
#my $from = "$_[1]";
my $subject=shift;
#my $subject = "$_[2]";
my $data=shift;
#my $data = "$_[3]";

$sendmail = MIME::Lite->new(
From     => $from,
To       => $mail_to,
Subject  => $subject,
Data     => $data
);

$sendmail->attr("content-type" => "text/html");
$sendmail->send;
}
perl_sendmail(@ARGV);

vim databases.sh
#!/bin/bash

OP_MAILBOX="hello@qq.com,amos.lu@qq.com"
phone_lu=15800329316
phone_xia=15121132075
[ -d /tmp/db ] || mkdir /tmp/db

function database()
{
local data_file vale num
vale=60
data_file="/tmp/php_db.log"
while read line
do
num=`echo $line|awk -F'=' '{print $2}'`
title=`echo $line|awk -F']' '{print $2}'|awk '{print $1}'`
[ -f /tmp/db/$title ] && content=`cat /tmp/db/$title` && ret=`echo $content|awk -F'=' '{print $2}'`
if [ "x$num" != "x" -a $num -lt $vale ]
then
echo "$title=1" > /tmp/db/$title
sendmailx "$line <br>一小时检测一次，连续报警两次，请通知以下运维人员<br>卢李明:$phone_lu<br>夏志培:$phone_xia" "数据异常"
elif [ "x$content" != "x" ]
then
if [ $ret -eq 1 -a $num -gt $vale ]
then
echo "$title=0" > /tmp/db/$title
sendmailx "$line <br>这是恢复邮件，您可以安心休息了。" "数据恢复"
fi
fi
done < $data_file
}

function sendmailx()
{
local mail_msg mail_from
mail_msg=$1
mail_title=$2
mail_from="skymobi@sky-mobi.com"
for mailbox in `echo $OP_MAILBOX|sed 's/,/ /g'`
do
/path/to/sendmail.pl "$mailbox" "$mail_from" "$mail_title" "$mail_msg"
sleep 0.5
done
}
database