zoukankan      html  css  js  c++  java
  • 发邮件

    use Sys::Hostname;
    use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
    use Net::SMTP;
           if ( $#ARGV < 3 ){
            print "please input xx@163.com passwd  to_address contents!
    ";
                    exit(-1);
                      };
    	   $name=$ARGV[0];
    	   $passwd=$ARGV[1];
    	   
    
    sub send_mail{
    if (@_ != 2){print "请输入2个参数
    ";exit 1};
        ($m,$n) = @_; #将参数赋值给变量  
        my $to_address  = $m;
    my $CurrTime = time2iso(time());
        my $to_address  = $m;
    
     my $mail_user   = "$name";
        my $mail_pwd    = "$passwd";
        my $mail_server = "smtp.163.com";
    
        my $from    = "From: $mail_user
    ";
        my $subject = "Subject: xxxxx
    ";
        my $info = "$CurrTime--$n";
         my $message = <<CONTENT; 
         $info
    CONTENT
        my $smtp = Net::SMTP->new($mail_server);
    
        $smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";
        $smtp->mail($mail_user);
        $smtp->to($to_address);
    
        $smtp->data();             # begin the data
        $smtp->datasend($from);    # set user
        $smtp->datasend($subject); # set subject
        $smtp->datasend("
    
    ");
        $smtp->datasend("$message
    "); # set content
        $smtp->dataend();
        $smtp->quit();
    };
    send_mail($ARGV[2],$ARGV[3]);

  • 相关阅读:
    组原——④存储器4
    sdk和api的区别
    转载:直播测试
    生成短链接
    H5调原生
    Android Intent 启动方法和启动Action大全
    ps和top的区别
    安卓知识点
    正则基础之——捕获组(capture group)
    正则基础之——反向引用
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13351303.html
Copyright © 2011-2022 走看看