perl - 用于修改和转发消息的 Perl smtp 服务器

Question

我需要创建一个用作 smtp 服务器的 perl 脚本。当它收听一封电子邮件时，它应该更改其正文，然后将其重新发送到其他一些电子邮件服务器（MS Exchange 之一）

有没有一种简单的方法可以做到这一点？我应该使用哪些 perl 模块？

非常感谢。

Answer 1

您可以使用以下模块来完成您的任务。

Net::Server::Mail接收邮件，检查DATA回调作为您可以处理收到的电子邮件的地方。然后您可能应该将它与一些 SMTP 客户端模块（例如Email::Sender）混合以发送邮件。

也许您选择采用异步方式并尝试AnyEvent::SMTP，它将服务器和客户端组合在一个模块中。