论坛 › Perl › 群发邮件的perl脚本程序

_N_了吧唧的_ 发表于 2018-8-31 11:09:45

群发邮件的perl脚本程序

　　
#!/usr/bin/perl
　　

　　

　　
#open M,'../olympic_note/mail_template';
　　
open M,'tongzhi.txt';
　　
@t = ;
　　
close M;
　　

　　
open(LIST, 'liebiao.txt');
　　
#open(LOG,'>>havesend.olympic.080731');
　　
open(LOG,'>>sent.20100524.log');
　　
while() {
　　
s/[\r\n]//g;
　　
#       ($username,$email) = split(/\s+/);
　　
$email = $_;
　　
print LOG "$email\n";
　　
# open(MAILER, "|/usr/sbin/sendmail -t -flubingcba\@51.net");
　　
open(MAILER, "|/usr/sbin/sendmail -t -fAccountAdmin\@51.net");
　　
print MAILER

查看完整版本: 群发邮件的perl脚本程序