Perl 发送邮件

Perl 发送邮件如果你的程序在 Linux/Unix 系统上运行，你就可以在 Perl 中使用 sendmail 工具来发送邮件。以下是一个简单的脚本实例用于发送邮件：实例





#!/usr/bin/perl





# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱$to = '429240967@qq.com';





#发送者邮箱$from = 'test@k88.net';





#标题$subject = 'k88.net Perl 发送邮件测试';$message = '这是一封使用 Perl 发送的邮件。';open(MAIL, "|/usr/sbin/sendmail -t");





# 邮件头部print MAIL "To:





$to\n";print MAIL "From:





$from\n";print MAIL "Subject:





$subject\n\n";





# 邮箱信息print MAIL $message;close(MAIL);print "邮件发送成功\n";执行以上程序，输出结果为：邮件发送成功正常情况下，以上邮件会被 QQ 邮箱拦截，我么可以把它加入白名单，操作方式可以点击：https:





//kf.qq.com/faq/120322fu63YV130805rYRFzu.html加入白名单后就可以正常接收邮件了。发送 HTML 格式邮件我们可以在邮件头部添加 Content-type:





text/html\n 来发送 HTML 格式的邮件，实例如下： 实例





#!/usr/bin/perl





# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱$to = '429240967@qq.com';





#发送者邮箱$from = 'test@k88.net';





#标题$subject = 'k88.net Perl 发送邮件测试';$message = '<h1>这是一封使用 Perl 发送的邮件<h1><p>你好，我来自k88.net，地址是:





http:





//www.k88.net。</p>';open(MAIL, "|/usr/sbin/sendmail -t");





# 邮件头部print MAIL "To:





$to\n";print MAIL "From:





$from\n";print MAIL "Subject:





$subject\n";print MAIL "Content-type:





text/html\n";





# 邮箱信息print MAIL $message;close(MAIL);print "邮件发送成功\n";执行成功后，查看邮件内容，如下所示： 使用 MIME:





:





Lite 模块如果你使用的是 window 系统，没有 sendmail 工具。这时你就可以使用 perl 的 MIME:





Lite 模块作为邮件客户端来发送邮件。MIME:





Lite 模块 下载地址为：MIME-Lite-3.030.tar.gz。这里我们直接用 cpan 来安装(需要 root 权限)，不用下载：$ cpan -i MIME:





:





Lite…… /usr/bin/make install -- OK安装成功后，我们来演示一个实例：实例





#!/usr/bin/perluse MIME:





:





Lite;





# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱$to = '429240967@qq.com';





# 抄送者，多个使用逗号隔开





# $cc = 'test1@k88.net, test2@k88.net';





#发送者邮箱$from = 'test@k88.net';





#标题$subject = 'k88.net Perl 发送邮件测试';$message = '这是一封使用 Perl 发送的邮件，使用了 MIME:





:





Lite 模块。';$msg = MIME:





:





Lite->new(From => $from,To => $to,Cc => $cc,Subject => $subject,Data => $message);$msg->send;print "邮件发送成功\n";执行成功后，查看邮件内容，如下所示： 发送 HTML 格式邮件我们可以在邮件头部添加 Content-type:





text/html\n 来发送 HTML 格式的邮件，实例如下： 实例





#!/usr/bin/perluse MIME:





:





Lite;





# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱$to = '429240967@qq.com';





# 抄送者，多个使用逗号隔开





# $cc = 'test1@k88.net, test2@k88.net';





#发送者邮箱$from = 'test@k88.net';





#标题$subject = 'k88.net Perl 发送邮件测试';$message = '<h1>这是一封使用 Perl 发送的邮件<h1><p>使用了 MIME:





:





Lite 模块。</p><p>来自k88.net，地址是:





http:





//www.k88.net。</p>';$msg = MIME:





:





Lite->new(From => $from,To => $to,Cc => $cc,Subject => $subject,Data => $message);





# 添加头部信息$msg->attr("content-type" => "text/html");$msg->send;print "邮件发送成功\n";执行成功后，查看邮件内容，如下所示： 发送带有附件的邮件发送带有附件的邮件实例如下： 实例





#!/usr/bin/perluse MIME:





:





Lite;





# 接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱$to = '429240967@qq.com';





# 抄送者，多个使用逗号隔开





# $cc = 'test1@k88.net, test2@k88.net';





#发送者邮箱$from = 'test@k88.net';





#标题$subject = 'k88.net Perl 发送邮件测试';$message = '这是一封使用 Perl 发送的邮件，使用了 MIME:





:





Lite 模块，包含了附件。';$msg = MIME:





:





Lite->new(From => $from,To => $to,Cc => $cc,Subject => $subject,Type => 'multipart/mixed'





# 附件标记);$msg->attach (Type => 'TEXT',Data => $message);





# 指定附件信息$msg->attach(Type => 'TEXT',Path => './k88.txt',





# 当前目录下Filename => 'k88.txt',Disposition => 'attachment');$msg->send;print "邮件发送成功\n";执行成功后，查看邮件内容，如下所示： 你可以通过使用多个 $msg->attach 来添加多个附件。