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!\n";
exit(-1);
};
$name=$ARGV[0];
$passwd=$ARGV[1];
sub send_mail{
if (@_ != 2){print "请输入2个参数\n";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\n";
my $subject = "Subject: xxxxx\n";
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("\n\n");
$smtp->datasend("$message\n"); # set content
$smtp->dataend();
$smtp->quit();
};
send_mail($ARGV[2],$ARGV[3]);
发邮件<1>
最新推荐文章于 2022-05-11 19:02:40 发布