Perl使用主机名发邮件
来源:互联网 发布:上海网络直播室 编辑:程序博客网 时间:2024/05/21 23:32
使用别的邮件系统有诸多限制,
不如用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();
}
不如用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();
}
- Perl使用主机名发邮件
- perl 使用Net::SMTP 发邮件
- perl发邮件脚本
- perl 自动发邮件
- Perl 发邮件
- (包括模块安装)Perl->使用Net::SMTP_auth发邮件
- linux perl mail 发邮件
- perl Email::Sender 发邮件
- 发邮件的PERL/Tk脚本
- perl发html+附件的邮件
- Perl发邮件 Nnt::SMTP::SSL
- perl学习-用Net::SMTP发邮件
- jMAIL使用,发邮件
- 使用ruby发邮件
- 使用python发邮件
- 使用oracle发邮件
- 使用sendmail 发邮件
- 使用SES发邮件
- VS2010 f:/dd/vctools/vc7libs/ship/atlmfc/src/mfc/dlgdata.cpp 错误调试
- Linux驱动1_DebugFS
- 第十二周项目4-1 猜数游戏
- Android中shape的使用
- SQL Server 检测到基于一致性的逻辑 I/O 错误 pageid
- Perl使用主机名发邮件
- POJ 2442 Sequence (堆)
- Spring依赖注入(DI)的三种方式
- 大了还是小了
- 体验时间函数
- 详解Redboot的移植
- Spring Security3初步学习
- Hive metastore三种存储方式
- 浅析JavaScript中三个等号(===)和两个等号(==)的区别