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" | sendmail  [e-mail]

如果使用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('[e-mail]' ,'[e-mail]','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: $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,"thanks!");

send_mail('[e-mail]','[e-mail]',@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的连接。