使用 Perl 发送纯文本邮件

如果你正在 Linux/Unix 机器上工作，则可以使用 Perl 程序中的 sendmail 实用程序发送电子邮件。以下是一个示例脚本，可以将电子邮件发送到给定的电子邮件 ID。只需确保 sendmail 实用程序的给定路径正确。对于你的 Linux/Unix 机器来说，这可能不同。

#!/usr/bin/perl
$to = 'abcd@gmail.com';
$from = 'webmaster@yourdomain.com';
$subject = 'Test Email';
$message = 'This is test email sent by Perl Script';
open(MAIL, "|/usr/sbin/sendmail -t");

# Email Header
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";

# Email Body
print MAIL $message;
close(MAIL);
print "Email Sent Successfully\n";

实际上，以上脚本是一个客户端电子邮件脚本，它会起草电子邮件并提交至在你的 Linux/Unix 机器上本地运行的服务器。该脚本不会负责将电子邮件发送到实际目的地。因此，你必须确保在你的机器上正确配置并运行电子邮件服务器，才能将电子邮件发送到给定的电子邮件 ID。

莫哈德·莫塔辛

更新于： 2019-11-29

260 浏览

开启你的 职业生涯

完成课程以获得认证

开始