麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學(xué)院 > 編程設(shè)計 > 正文

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

2020-07-14 13:41:21
字體:
供稿:網(wǎng)友

  幫朋友寫的。
  本程序從一個文本文件中讀取郵件地址和一些需要的記錄。
  activeperl 5.8 + winxp下通過。
  #!/usr/bin/perl
  use Net::Smtp;
  
  #郵件發(fā)送服務(wù)器地址
  $smtp_server = 'smtp.126.com';
  
  #發(fā)件人地址
  $from = '[email protected]';
  
  #郵件標(biāo)題
  $title = '測試郵件一個,接好,別砸到!';
  
  #發(fā)一封歇息多久
  $delay = 1;
  
  #包含收件人列表及可變信息的文本文件
  #格式為:用戶名,密碼,詳細(xì)信息
  #請把它放在當(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(/,/);
  

  
  #如果您的列表里直接存儲的是email地址,請用如下一句替換上面一句
  $to = $usr;
  
  #根據(jù)列表文件構(gòu)建郵件內(nèi)容。
  #因為這里的heredoc要求頂格所以不能正常縮進(jìn)
  $msg=<<HTML;
  $detail,您好。
  
  我們的郵件服務(wù)器地址已經(jīng)變?yōu)閤xxxxxxx.
  您的用戶名為$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
  #參數(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)證,請在下面輸入用戶名和密碼。
  #需要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范例文件
  [email protected],1111,臭老九
  [email protected],2222,姜源
  [email protected],3333,醬小魚
  [email protected],4444,小姜
  
  運行結(jié)果


  用outlook成功收到

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 97青青 | 婷婷久久久久久 | 欧美一区二区黄色 | 高清在线观看av | 国产精品视频自拍 | 姑娘第四集免费看视频 | 精品亚洲夜色av98在线观看 | 欧美成人高清视频 | 九九视屏| 亚洲导航深夜福利涩涩屋 | 欧美精品一区二区三区在线播放 | 夜间福利网站 | 羞羞色在线观看 | 欧美成人区 | 精品中文字幕久久久久四十五十骆 | av在线中文 | chinese军人gay呻吟 | 久久亚洲国产午夜精品理论片 | 92看片淫黄大片一级 | 香蕉久久久久 | 中文字幕综合在线观看 | 国产超碰人人爽人人做人人爱 | 久久精品国产久精国产 | 国产中出视频 | 精品在线免费播放 | www.99xxxx.com| 欧美一级黄色录相 | 欧美性生活久久 | 国产精品99久久99久久久二 | 毛片免费观看视频 | 亚洲字幕av | 久久羞羞 | 久久国产精品一区 | 欧美色大成网站www永久男同 | 青草视频在线观看视频 | 日韩毛片在线看 | 高清国产午夜精品久久久久久 | 成人毛片100部 | 色日本视频 | 国产精品一区二区视频 | 成年人黄色片视频 |