用perl发一大堆邮件的一种方法

　　帮朋友写的。
　　本程序从一个文本文件中读取邮件地址和一些需要的记录。
　　activeperl 5.8 + winxp下通过。
　　#!/usr/bin/perl
　　use Net::Smtp;
　　
　　#邮件发送服务器地址
　　$smtp_server = 'smtp.126.com';
　　
　　#发件人地址
　　$from = 'sleetdrop@126.com';
　　
　　#邮件标题
　　$title = '测试邮件一个，接好，别砸到!';
　　
　　#发一封歇息多久
　　$delay = 1;
　　
　　#包含收件人列表及可变信息的文本文件
　　#格式为：用户名，密码，详细信息
　　#请把它放在当前目录下，并把它命名为list.txt
　　$f_list='list.txt';
　　open(FILE,$f_list) || die "Can not open list file\n";
　　while(<FILE>){
　　chomp;
　　($usr,$passwd,$detail) = split(/,/);
　　

　　
　　#如果您的列表里直接存储的是email地址，请用如下一句替换上面一句
　　$to = $usr;
　　
　　#根据列表文件构建邮件内容。
　　#因为这里的heredoc要求顶格所以不能正常缩进
　　$msg=<<HTML;
　　$detail，您好。
　　
　　我们的邮件服务器地址已经变为xxxxxxxx.
　　您的用户名为$usr密码为$passwd
　　请尽快登陆修改。
　　由于本次更改给您工作带来的不便在此表示歉意。
　　谢谢您的支持。
　　
　　HTML
　　
　　print "I am sending Email No.".($cnt+=1)." to ".$to."......\n";
　　&gingerMail($smtp_server,$from,$to,$title,$msg);
　　print "Email No.".$cnt." has been sent to: ".$to."\n";
　　sleep($delay);
　　}
　　
　　close(FILE);
　　print "\n......All Finished!!!";
　　
　　###########################
　　#
　　#例程gingerMail
　　#参数列表
　　#$smtp_server发邮件smtp服务器地址
　　#$from发件人地址
　　#$to收件人地址
　　#$title邮件标题
　　#$msg邮件内容
　　#
　　###########################
　　sub gingerMail{
　　my($smtp_server,$from,$to,$title,$msg) = @_;
　　$smtp = Net::SMTP->new($smtp_server);
　　#如果您的服务器需要认证，请在下面输入用户名和密码。
　　#需要Auth-SASL模块的支持
　　#windows下可以用ppm安装，unix下请用CPAN安装。
　　$smtp->auth('sleetdrop','xxxxxxxxx');
　　$smtp->mail($from);
　　$smtp->to($to);
　　$smtp->data();
　　$smtp->datasend('From: '.$from);
　　$smtp->datasend("\n");
　　$smtp->datasend('To: '.$to);
　　$smtp->datasend("\n");
　　$smtp->datasend('Subject: '.$title);
　　$smtp->datasend("\n\n");
　　$smtp->datasend("$msg\n");
　　$smtp->dataend();
　　$smtp->quit;
　　}
　　
　　list.txt范例文件
　　ginger@syau.edu.cn,1111,臭老九
　　sleetdrop@hotmail.com,2222,姜源
　　sleetdrop@126.com,3333,酱小鱼
　　sleetdrop@sohu.com,4444,小姜
　　
　　运行结果

　　用outlook成功收到