<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    lqxue

    常用鏈接

    統(tǒng)計

    book

    tools

    最新評論

    linux 下用 perl 發(fā)email

    首先,在linux上安裝perl-Mail-Sendmail-0.79-1.0.rh9.rf.noarch.rpm

    perl 代碼如下:

    #
    !/usr/bin/perl 
    use Mail::Sendmail; 
    $delay = 1;
    $f_list="list.txt";
    $line = 0;#skip the column title line
    my $subject="xxx";
    open(FILE,$f_list|| die "Can not open list file\n";
    while(<FILE>){
    chomp;
    $line=$line+1;
    next if($line==1);

    (
    $email,$passwd,$username,$yonghuming= split(/,/);


    %mail = (
        from 
    => 'xxx@xxx.com',
        to 
    => $email,
        subject 
    => $subject,
        
    'content-type' => 'text/html; charset="gbk"',
            );
    $mail{body} = <<END_OF_BODY;
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=gbk">
    <title>個人郵箱登陸</title>
    <style type="text/css">
    <!--
    body {
        margin
    -left: 0px;
        margin
    -top: 0px;
        margin
    -right: 0px;
        margin
    -bottom: 0px;
    }
    -->
    </style>
    <link href="images/css.css" rel="stylesheet" type="text/css">
    <style type="text/css">
    <!--
    .style1 {font-size: 13px}
    .style3 {color: #0066CC}
    .style4 {color: #FF0000}
    -->
    </style>
    </head>

    <body>
    <table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
      
    <tr>
        
    <td height="10" valign="bottom"><hr width="100%" size="10" color="#3399FF">test</td>
      
    </tr> 
    </table>
    </body>
    </html>

    END_OF_BODY

    sendmail(
    %mail|| print "Error: $Mail::Sendmail::error\n";
    sleep($delay); 
    }
    close(FILE);


    list file 內(nèi)容格式:
    xx@163.com,xdf.com,xxx,xxx

    posted on 2008-10-17 09:33 lqx 閱讀(384) 評論(0)  編輯  收藏 所屬分類: linux

    主站蜘蛛池模板: 亚洲国产一成人久久精品| 性xxxx视频播放免费| 国产亚洲精品高清在线| www亚洲精品久久久乳| 免费A级毛片无码免费视| 亚洲国产成人久久77| 日本视频一区在线观看免费| 男性gay黄免费网站| 手机看片久久国产免费| 亚洲精品色在线网站| 免费人妻av无码专区| 国产成人1024精品免费| 亚洲中文字幕无码一久久区| 国产色无码精品视频免费| 亚洲AV人无码激艳猛片| 久久久久久精品成人免费图片| 亚洲乱码日产精品BD在线观看| 成人午夜大片免费7777| 亚洲jizzjizz少妇| 中文字幕日韩亚洲| 16女性下面无遮挡免费| 亚洲色无码国产精品网站可下载| 在线观看亚洲免费视频| 国产精品免费视频观看拍拍| 久久香蕉国产线看观看亚洲片| 久久午夜夜伦鲁鲁片免费无码影视| ASS亚洲熟妇毛茸茸PICS| 全免费a级毛片免费**视频| 新最免费影视大全在线播放| 国产成A人亚洲精V品无码| 四虎免费影院ww4164h| 久久亚洲欧美国产精品| 亚洲无av在线中文字幕| 中文免费观看视频网站| 亚洲av无码专区国产不乱码| 国产亚洲午夜高清国产拍精品| 久久99热精品免费观看牛牛| 中文字幕在线日亚洲9| 亚洲午夜av影院| 波多野结衣免费在线| 一级毛片一级毛片免费毛片|