Chinaunix首页 | 论坛 | 博客
  • 博客访问: 7894225
  • 博文数量: 701
  • 博客积分: 2150
  • 博客等级: 上尉
  • 技术积分: 13233
  • 用 户 组: 普通用户
  • 注册时间: 2011-06-29 16:28
个人简介

天行健,君子以自强不息!

文章分类

全部博文(701)

文章存档

2019年(2)

2018年(12)

2017年(76)

2016年(120)

2015年(178)

2014年(129)

2013年(123)

2012年(61)

分类: PERL

2013-11-13 17:34:45

使用别的邮件系统有诸多限制,
不如用linux系统本机的邮件功能; 

#!/usr/bin/perl
##
# Test linux mail
##
use warnings;
use strict;
use Mail::Mailer;
use Socket;

my $mail_subject = "test mail";
my @daily_mail_content = "test is ok!\n";
&mailer_send_mail($mail_subject, \@daily_mail_content);

sub mailer_send_mail {
  my ($subject, $param) = @_;

  my $message = join('',@$param);

  my $host = `hostname`;
  my $mail_host = 'root@'.$host;

  my $from_address = $mail_host;
  my $to_address = 'username@yyy.com';

  my $mailer = Mail::Mailer->new("sendmail");
  $mailer->open({From      => $from_address,
                              To         => $to_address,
                              Subject => $subject,
                              })
  or die "Can't open : $!\n";
  print $mailer $message;
  $mailer->close();
}
阅读(1815) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~