Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2153998
  • 博文数量: 227
  • 博客积分: 10521
  • 博客等级: 上将
  • 技术积分: 3452
  • 用 户 组: 普通用户
  • 注册时间: 2006-10-20 14:59
个人简介

低调做人,高调做事!

文章分类

全部博文(227)

文章存档

2013年(4)

2012年(8)

2011年(16)

2010年(24)

2009年(92)

2008年(83)

分类:

2008-10-10 15:36:09

在perl中使用本机的sendmail发送邮件的代码如下:

#!/usr/bin/perl

use strict;

my($r_mail) = 'xxxx@163.com';
my($s_mail) = 'root@abc.cn';
my($subject) = '邮件标题';

open(MAIL, '|/usr/lib/sendmail -t');
select(MAIL);
print<<"END_TAG";
To: $r_mail
From: $s_mail
Subject: $subject

邮件内容,database is ok!

END_TAG 
阅读(2571) | 评论(0) | 转发(1) |
给主人留下些什么吧!~~