Question

windows平台下使用perl脚本发送邮件

windows平台下使用perl脚本发送邮件，安装了active perl，还要装什么插件吗？发送邮件的perl脚本该怎么写？特别是密码认证的部分。

Answer 1

试试这个Perl模块：Mail::Sender，你需要Google一下。

如果你要发送邮件的话，必须还要配置好各种参数，这里有一个例子，假如我有一个yahoo的邮箱xxx@yahoo.com.cn，一个163的邮箱yyy@163.com

use strict;
use warnings;

use Mail::Sender;

my $sender = new Mail::Sender
{smtp => 'smtp.mail.yahoo.com', from => 'xxx@yahoo.com.cn'};
my $result = $sender->MailMsg({smtp => 'smtp.mail.yahoo.com', #这个是你的邮件服务器的主机名
from => 'xxx@yahoo.com.cn',
to => 'yyy@163.com',
header => '',
subject => "Just a test!Don't reply!",
msg => "This is a test!\nIf you receive this email, that will prove that my perl script works successfully",
auth => 'LOGIN',
authid => 'xxx',
authpwd => 'zzz' #zzz是你的yahoo邮箱密码
});

if ($result < 0)
{
die "error!";
}

$sender->Close();
print "Success!\n";
这个例子我测试成功过，祝你好运！