在运维工作中,有很多地方需要发送邮件的方式进行监控。
#!/usr/bin/perl #perl的安装目录
use strict;
use warnings;
use Email::Simple;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP::TLS;
my $transport = Email::Sender::Transport::SMTP::TLS->new(
host => 'smtp.163.com',
port => 25, -- 对应的amtp的端口号
username => 'XXXX@163.com', -- 邮箱地址
password => 'XXXX' ; -- 这是授权码,不是邮箱真正的密码,具体请去百度
);
my $message = Email::Simple->create(
header => [
From => 'XXXX@163.com',
To => '666666666@qq.com',
Subject => 'Sent from perl Test!',
],
body => 'Sent from perl Test!',
);
sendmail( $message, {transport => $transport} );