如何使用Perl脚本发送电子邮件

Question

这是我上次的考试，所以如果有人帮助我，我将非常感激。

我被告知编写用于向许多用户发送电子邮件的Perl脚本。 它应该像这样工作：

1）脚本读取一个应该是电子邮件正文的.html文档。

2）它读取包含电子邮件应发送到的所有电子邮件地址（除以“;”）的.txt文档。可能有数百，数千个电子邮件地址。

3）脚本应以某种方式读取用于发送电子邮件的SMTP设置。

我期待着任何人的回答。

提前致谢...

Answer 1

首先，我不打算为你编写代码 - 如果你试图自己编写代码，你会受益更多。

1）您需要read“body”文件并存储它以供稍后在脚本中使用。

2）再次阅读“电子邮件地址”文件的内容，您可能需要使用split功能来分隔电子邮件地址。将它们存储在一个数组中，也许您可​​能希望在将每个电子邮件地址添加到阵列之前对其进行验证。

3）对于阵列中的每个条目 - 发送电子邮件。要发送电子邮件，您可以使用以下模块Net::SMTP

Answer 2

您可以在Robert Maldons博客上找到一个示例。查看http://robertmaldon.blogspot.com/2006/10/sending-email-through-google-smtp-from.html

Answer 3

寻找Net :: SMTP :: SSL 它包含代码片段的所有内容 您只需要添加语法