Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2758456
  • 博文数量: 389
  • 博客积分: 4177
  • 博客等级: 上校
  • 技术积分: 4773
  • 用 户 组: 普通用户
  • 注册时间: 2008-11-16 23:29
文章分类

全部博文(389)

分类:

2010-08-30 14:53:23

                          使用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();
阅读(1911) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~