《Perl编程24学时教程》笔记第22课 CGI发送电子邮件

发布时间:2019-08-30编辑:脚本学堂
本文分享下《Perl编程24学时教程》笔记第22课时的内容,介绍下使用CGI程序发送电子邮件的方法,有需要的朋友参考下。

第22课时  使用CGI程序发送电子邮件

一、Internet邮件入门
常用的邮件协议:简单邮件传输协议(Simple Mail Transport Protocol, SMTP),邮局协议(Post Office Portocol, POP),Internet邮件访问协议(Internet Message Access Protocol, IMAP)。
发送邮件必须要有邮件传输代理或SMTP中继主机。
邮件传输代理(Mail Transport Agent, MTA),UNIX常用的MTA是sendmail

二、邮件发送函数

1,用于UNIX系统的邮件函数
sendmail可以用来发送邮件。
-t 从输入数据获得邮件头信息
-oi 忽略单行程序上的"."
-odq 对邮件进行排队

2,用于非UNIX系统的邮件函数
Net::SMTP模块可以用来发送邮件。
 

$smtp = Net::SMTP->new(host); 创建smtp对象
$smtp->mail(addr);  设置发送者地址
$smtp->to(addr);  设置收件人地址
$smtp->data();   开始发送邮件正文
$smtp->datasend(data);  发送邮件正文
$smtp->dataend();  完成邮件正文发生
$smtp->quit();   断开与SMTP服务器连接