使用PERL发送邮件
时间：2010-08-30 来源：oracle狂热分子
使用PERL发送邮件
PERL功能很强大，在日常的管理中，经常用来监视系统，然后自动发送邮件给管理员，脚本如下：
use Net::SMTP;
##还要安装sasl认证模块
$smtp=Net::SMTP->new("邮件服务器地址",Debug=>1)；
##debug等于0则不输出信息 $smtp->auth("frankzou\@sz.cntrans.cn","邮箱密码");
$smtp->mail("frankzou\@sz.cntrans.cn");
$smtp->to("frankzou\@sz.cntrans.cn"); $smtp->data();##开始邮件传送
$smtp->datasend("To: frankzou\@sz.cntrans.cn\n");
$smtp->datasend("From: frankzou\@sz.cntrans.cn\n");
$smtp->datasend("Subject: testing\n");
$smtp->datasend("\n");
$smtp->datasend("This is a mail\n");
$smtp->dataend();##送出邮件结速标志
$smtp->quit();
PERL功能很强大，在日常的管理中，经常用来监视系统，然后自动发送邮件给管理员，脚本如下：
use Net::SMTP;
##还要安装sasl认证模块
$smtp=Net::SMTP->new("邮件服务器地址",Debug=>1)；
##debug等于0则不输出信息 $smtp->auth("frankzou\@sz.cntrans.cn","邮箱密码");
$smtp->mail("frankzou\@sz.cntrans.cn");
$smtp->to("frankzou\@sz.cntrans.cn"); $smtp->data();##开始邮件传送
$smtp->datasend("To: frankzou\@sz.cntrans.cn\n");
$smtp->datasend("From: frankzou\@sz.cntrans.cn\n");
$smtp->datasend("Subject: testing\n");
$smtp->datasend("\n");
$smtp->datasend("This is a mail\n");
$smtp->dataend();##送出邮件结速标志
$smtp->quit();
相关阅读 更多 +
排行榜 更多 +
