使用 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 瀏覽

開啟你的 職業生涯

完成課程以獲得認證

開始