Perl 学习笔记（4）

使用CGI程序发送电子邮件

在本章将要学习：(1) 如何运行internet电子邮件特性 (2) 如何在UNIX和非UNIX系统下发送邮件 (3) 如何建立发送邮件的Web窗体

?

一、Intenet邮件入门

目前最常用的是使用简单邮件传输协议（SMTP）将邮件发送出去和连接的目标端通常使用邮局协议（POP）或Internet邮件访问协议(IMAP)。

若要发送电子邮件，需要两样东西，即邮件传输代理或SMTP中继主机。

邮件传输代理(MTA) 负责接收电子邮件并正确地将他们转发。UNIX系统上常用MTA成为sendmail。

$/bin/echo "Subject:TestnnHello,world" | sendmail? xxx@example.com

如果使用windows操作系统，那么将不具备内置的MTA。不过perl模块使你能够直接发送邮件。Net::SMTP模块可以再没有介入的MTA的情况下发送邮件，但是你必须知道你的SMTP中继主机的名字。

正确的SMTP中继主机名取决于从何处发送你的邮件。如果你从家中发送邮件，那么你的ISP为你赋予一个SMTP中继主机名。如果是Web服务器，那么就需要该服务器的中继主机名。

============================================

二、邮件发送函数

sub send_mail {

????? my($to,$from,$subject,@body)=@_;

????? my $sendmail="/usr/bin/sendmail -t -oi -odp";

????? open(MAIL,"|$sendmail") || die "Can't start sendmail: $!";

????? print MAIL <<END;

From: $from

To: $to

Subject: $subject

END

????? foreach (@body) {

????????????? print MAIL,"$_n";

?????? }

??????? close(MAIL);

}

若要使用该函数，只要这样用：

@body=("Lower mine,please.","Thank you");

send_mail('a@example.com'?,'b@example.com','Taxes',@body);

=====================================================

三、用于非UNIX系统的邮件函数

sub send_mail {
?my($to,@body)=@_;
?use Net::SMTP;
?my $relay="relayhost.youisp.com";
?my $smtp=Net::SMTP->new($relay);
?die "Could not open connection: $!" if (defined $smtp);
?$smtp->mail($from);
?$smtp->to($to);

?$smtp->data();
?$smtp->datasend("To: $ton");
?$smtp->datasend("From: $fromn");
?$smtp->datasend("Subject: $subjectn");
?$smtp->datasend("n");
?foreach? (@body) {
??$smtp->datasend("$_n");
?}
?$smtp->dataend();
?$smtp->quit;
}
?

若要使用该函数

@body=("lower mine,"thanks!");

send_mail('a@example.com','b@example.com',@body);

$smtp=Net::SMTP->new($relay)?? 这行代码?用于创建一个称为"对象"的东西。"对象"实际上并不是一个标量，也不是哈希结构或者数组。$smtp中的值现在代表一个到达邮件程序的连接，你可以对这个连接进行各种操作。

$smtp->mail(addr)??? mail函数发送邮件使用的什么身份

$smtp->to(addr)?? to 函数用于邮件发送给谁

$smtp->data()?????? data函数指明你准备发送邮件的正文

$smtp->datasend(data)? 这个函数用于发送邮件的实际文本。你必须输出你自己的报头域(TO:?? From:? 等)。 在报头与正文之间，还必须输入一个空行 $smtp->datasend("n"),? 你的邮件正文跟随在这个空行的后面，并且也用$smtp->datasend()来发送。

$smtp->dataend()??? dataend函数用于指明你已经完成邮件正文的发送，在运行这个函数之前，邮件并未发送。

$smtp->quit()?? 该函数用于断开与SMTP的连接。