通过perl脚本发送电子邮件

时间:2015-04-07 12:05:18

标签: perl email module

我正在学习Perl课程并接到一项任务,即使用Mail::Sendmail模块向perl @ perlrocks发送电子邮件。

虽然我已经阅读了文档,但我仍然不明白该怎么做。例如,我使用gmail作为我的普通电子邮件,我应该将gmail配置为脚本中的smpt协议吗?你能否告诉我如何开始?

1 个答案:

答案 0 :(得分:1)

这取决于您的环境。如果您在Linux服务器上运行该脚本,请确保已安装sendmail实用程序(大多数发行版已预先安装)。如果您使用的是非Linux计算机,请在其上安装邮件服务器或使用外部SMTP服务器。

虽然这个特定的邮件模块does not support SMTP authentication,大多数外部SMTP服务器(如Google / Gmail)都需要。但是,如果您的邮件服务器始终允许运行Perl脚本的计算机的SMTP连接,则可以这样简单:

use Mail::Sendmail qw(sendmail %mailcfg);

%mail = ( To      => 'you@example.com',
          From    => 'me@example.com',
          Message => "Hello world!"
);

$mailcfg{smtp} = [qw(smtp.example.com)];

sendmail(%mail) or die $Mail::Sendmail::error;

这会将smtp.example.com设置为电子邮件服务器。 (或者,如果您 拥有localhost邮件服务器,则可以跳过整行,这是默认设置。)