Perl 学习笔记（4）
使用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" | sendmailxxx@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的连接。
页:
[1]