Perl 教程 之 Perl 发送邮件 2

Perl 发送邮件

如果你的程序在 Linux/Unix 系统上运行，你就可以在 Perl 中使用 sendmail 工具来发送邮件。

以下是一个简单的脚本实例用于发送邮件：

实例

!/usr/bin/perl

接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱

$to = 'XXXXXXXXXX@qq.com';

发送者邮箱

$from = 'test@baidu.com';

标题

$subject = '百度 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";

执行以上程序，输出结果为：

邮件发送成功

发送 HTML 格式邮件

我们可以在邮件头部添加 Content-type: text/html\n 来发送 HTML 格式的邮件，实例如下：

实例

!/usr/bin/perl

接收邮箱，这里我设置为我的 QQ 邮箱，你需要修改它为你自己的邮箱

$to = 'XXXXXXXXXX@qq.com';

发送者邮箱

$from = 'test@baidu.com';

标题

$subject = '百度 Perl 发送邮件测试';
$message = '

这是一封使用 Perl 发送的邮件

你好，我来自百度，地址是:http://www.baidu.com。

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);