Perl使用主机名发邮件

发布时间：2020-12-16 00:06:05 所属栏目：大数据来源：网络整理

导读：使用别的邮件系统有诸多限制， ?不如用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"; mail

使用别的邮件系统有诸多限制，
?不如用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,helvetica; line-height:18px">? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? Subject => $subject,helvetica; line-height:18px">? ? ? ? ? ? ? ? ? ? ? ? ? ? ?? })
? or die "Can't open : $!n";
? print $mailer $message;
? $mailer->close();
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!