Perl语言入门：简单的发送邮件

本章节将学习如何使用Perl来发送邮件，这是很基础的内容

---

概述

Perl作为语言，本身并不具备『发送邮件』的功能，它之所以可以发送邮件，靠的是调用其它程序，其中包括系统调用和第三方工具调用

系统调用，如mail命令

使用第三方工具，如sendmail

---

实际操作

系统调用mail命令

my $subject = 'Test';
my $content = 'This is a content';
my $to = '[email protected]';
my $cmd = "echo $content|mail -s $subject $to";
system($cmd);

---

使用文件读写

$to = '[email protected]';
$from = '[email protected]';
$subject = 'TEST';
$message = 'This is a testing mail';

open(MAIL, "|/usr/sbin/sendmail -t");
print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";

print MAIL $message;
close(MAIL);
print "The e-mail has been sent\n";

---

发送HTML格式的邮件

我们可以在邮件头部添加Content-type: text/html\n来发送HTML格式的邮件

$to = '[email protected]';
$from = '[email protected]';
$subject = 'TEST';
$message = '
This is a  HTML test
Hello HTML
';
open(MAIL, "|/usr/sbin/sendmail -t");

print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n";
print MAIL "Content-type: text/html\n";

print MAIL "$message";

close(MAIL);
print "The e-mail has been sent\n";

---

使用MIME::Lite模块

如果使用的是Windows系统则没有sendmail工具；这时候可以使用Perl的MIME::Lite模块作为客户端来发送邮件

不要忘了在程序开头使用use表示使用该模块

use MIME::Lite;

$to = '[email protected]';
$from = '[email protected]';

$subject = 'TEST';
$message = 'This is a MIME::Lite test';

$msg = MIME::Lite->new(
                    From    =>  $from;
                    To      =>  $to;
                    Cc      =>  $cc;
                    Subject =>  $subject;
                    Data    =>  $message;
                    );
$msg->send;
print "The e-mail has been sent\n";

总结：Perl邮件发送还是挺简单的，就是自定义一些变量，结合文件的相关知识，把它们整合到一起就是一个完整的邮件发送了