Perl 学习笔记（4）

wss1051

　　使用CGI程序发送电子邮件
　　在本章将要学习：(1) 如何运行internet电子邮件特性 (2) 如何在UNIX和非UNIX系统下发送邮件 (3) 如何建立发送邮件的Web窗体
　　一、Intenet邮件入门
　　目前最常用的是使用简单邮件传输协议（SMTP）将邮件发送出去和连接的目标端通常使用邮局协议（POP）或Internet邮件访问协议(IMAP)。
　　若要发送电子邮件，需要两样东西，即邮件传输代理或SMTP中继主机。
　　邮件传输代理(MTA) 负责接收电子邮件并正确地将他们转发。UNIX系统上常用MTA成为sendmail。
　　$/bin/echo "Subject:Test\n\nHello,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 mail($from);
　　$smtp->to($to);
　　$smtp->data();
　　$smtp->datasend("To: $to\n");
　　$smtp->datasend("From: $from\n");
　　$smtp->datasend("Subject: $subject\n");
　　$smtp->datasend("\n");
　　foreach  (@body) {
　　$smtp->datasend("$_\n");
　　}
　　$smtp->dataend();
　　$smtp->quit;
　　}
　　若要使用该函数
　　@body=("lower mine,please.","thanks!");
　　send_mail('a@example.com', 'b@example.com','Taxes',@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的连接。