用perl發(fā)一大堆郵件的一種方法

幫朋友寫的。
本程序從一個(gè)文本文件中讀取郵件地址和一些需要的記錄。
activeperl 5.8 + winxp下通過。
#!/usr/bin/perl
use Net::Smtp;
#郵件發(fā)送服務(wù)器地址
$smtp_server = 'smtp.126.com';
#發(fā)件人地址
$from = 'sleetdrop@126.com';
#郵件標(biāo)題
$title = '測試郵件一個(gè),接好,別砸到!';
#發(fā)一封歇息多久
$delay = 1;
#包含收件人列表及可變信息的文本文件
#格式為:用戶名,密碼,詳細(xì)信息
#請(qǐng)把它放在當(dāng)前目錄下,并把它命名為list.txt
$f_list='list.txt';
open(FILE,$f_list) || die "Can not open list file\n";
while(<FILE>){
chomp;
($usr,$passwd,$detail) = split(/,/);
#如果您的列表里直接存儲(chǔ)的是email地址,請(qǐng)用如下一句替換上面一句
$to = $usr;
#根據(jù)列表文件構(gòu)建郵件內(nèi)容。
#因?yàn)檫@里的heredoc要求頂格所以不能正??s進(jìn)
$msg=<<HTML;
$detail,您好。
我們的郵件服務(wù)器地址已經(jīng)變?yōu)閤xxxxxxx.
您的用戶名為$usr密碼為$passwd
請(qǐng)盡快登陸修改。
由于本次更改給您工作帶來的不便在此表示歉意。
謝謝您的支持。
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
#參數(shù)列表
#$smtp_server發(fā)郵件smtp服務(wù)器地址
#$from發(fā)件人地址
#$to收件人地址
#$title郵件標(biāo)題
#$msg郵件內(nèi)容
#
###########################
sub gingerMail{
my($smtp_server,$from,$to,$title,$msg) = @_;
$smtp = Net::SMTP->new($smtp_server);
#如果您的服務(wù)器需要認(rèn)證,請(qǐng)?jiān)谙旅孑斎胗脩裘兔艽a。
#需要Auth-SASL模塊的支持
#windows下可以用ppm安裝,unix下請(qǐng)用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,小姜
運(yùn)行結(jié)果
用outlook成功收到
相關(guān)文章
WebStorm如何調(diào)試Vue項(xiàng)目? webstorm配置vue開發(fā)環(huán)境指南
WebStorm 支持多種調(diào)試工具,包括瀏覽器的開發(fā)者工具,但本文主要講解的是使用 WebStorm 自帶的調(diào)試功能2025-04-15VSCode和webstorm怎么設(shè)置綠色護(hù)眼背景? 綠豆沙背景色的設(shè)置方法
護(hù)眼色一定程度能保護(hù)眼睛,緩解疲勞,VSCode和webstorm這兩款常用的軟件怎么設(shè)置護(hù)眼色呢?詳細(xì)請(qǐng)看下文介紹2025-04-15WebStorm常用插件以及實(shí)用設(shè)置分享
WebStorm本身已經(jīng)足夠強(qiáng)大,但一些優(yōu)秀的插件能錦上添花,顯著提升開發(fā)效率,詳細(xì)請(qǐng)看下文介紹2025-04-15如何安裝配置WebStorm? WebStorm安裝與使用全方位指南
WebStorm軟件在前端和后端開發(fā)領(lǐng)域都備受青睞,很多朋友不知道該怎么下載安裝,下面我們就來看看詳細(xì)的安裝配置教程2025-04-15Webstorm怎么配置? Webstorm入門之軟件配置教程
WebStorm是一款功能強(qiáng)大的集成開發(fā)環(huán)境(IDE),支持各種前端開發(fā)技術(shù),今天我們就來看看Webstorm的配置教程2025-04-15Webstorm怎么設(shè)置字體大小/背景顏色/背景圖片?
WebStorm 允許您自定義界面顏色,以創(chuàng)建更個(gè)性化和美觀的工作空間,今天我們就來看看Webstorm改變字體大小、背景顏色、設(shè)置背景圖片的方法2025-04-15- VScode上安裝PlatformIO插件能成功安裝,嘗試卸載VScode并刪除插件,這些錯(cuò)誤仍然存在,下面我們就來看看這個(gè)問題的解決辦法2025-04-03
提升代碼搜索效率! VSCode里DeepSeek插件安裝與配置指南
今天我們將向大家介紹如何在Visual Studio Code中安裝并配置 DeepSeek 插件,幫助你更高效地進(jìn)行代碼搜索2025-04-07提升你的編程效率! VSCode的初級(jí)使用教程超詳細(xì)版
VSCode是一款免費(fèi)且開源的代碼編輯器,因其強(qiáng)大的功能和良好的用戶體驗(yàn)而廣受歡迎,本文將詳細(xì)介紹 VSCode 的基本使用方法,并通過插圖幫助你更好地理解2025-04-03- 今天我們來聊聊如何安裝和配置VS Code,讓它成為你編程路上的得力助手,這個(gè)過程其實(shí)很簡單,只要跟著我的步驟走,你絕對(duì)能搞定2025-04-03