<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

    主站蜘蛛池模板: 国产区卡一卡二卡三乱码免费| 91精品手机国产免费| 免费激情视频网站| 亚洲中文字幕AV在天堂| 日本免费网址大全在线观看| 亚洲福利视频网址| 免费国产作爱视频网站| 亚洲伦理一二三四| 成人人观看的免费毛片| 亚洲色大成网站WWW国产| 日本一区免费电影| 免费看一级毛片在线观看精品视频| 国产精品高清全国免费观看| 爱情岛论坛亚洲品质自拍视频网站| 国产精品免费_区二区三区观看| 美女黄频a美女大全免费皮| www.亚洲一区| 免费国产成人α片| 亚洲色欲色欲www| 日本免费人成黄页网观看视频| 香港经典a毛片免费观看看| 国产成人亚洲精品影院| 一级毛片全部免费播放| 77777亚洲午夜久久多喷| 亚洲AV无码一区二三区 | 久青草视频在线观看免费| 亚洲国产精品无码成人片久久| 美丽的姑娘免费观看在线播放| 国产亚洲国产bv网站在线| 亚洲高清无码综合性爱视频| 中文字幕在线免费看线人| 亚洲人妖女同在线播放| 免费不卡中文字幕在线| 久久精品成人免费网站| 亚洲精品国产精品国自产网站 | 区三区激情福利综合中文字幕在线一区亚洲视频1 | 91视频免费观看高清观看完整| 久久精品a亚洲国产v高清不卡| 好爽…又高潮了免费毛片| 精品久久久久久国产免费了| 亚洲国产视频网站|