-->
使用Net::SMTP进行简单的邮件发送
#!/usr/bin/perl -w
use strict;
use Net::SMTP;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime;
$year+=1900;
my @month=qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
my @week=qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
my $timestr=$week[$wday].", ".$mday." ".$month[$mon]." ".$year." ".$hour.":".$min.":".$sec." +0800";
my $smtp=Net::SMTP->new('www.gmail.com',DEBUG => 1,HELO => "www.perlmail.pl");
$smtp->mail('<"supersun"@gmail.dcom>');
$smtp->to('<"supersun"@gmail.com>');
$smtp->data();
$smtp->datasend("Date: $timestr\n");
$smtp->datasend("To: supersun\@gamil.com\n");
$smtp->datasend("From: Perl邮件发送程序 ");
$smtp->datasend("Subject: 测试Perl邮件发送程序 ");
$smtp->datasend("\n");
$smtp->datasend(" 这是一个邮件程序测试 ");
$smtp->dataend();
$smtp->quit;
$smtp->datasend("Date: $timestr\n");
$smtp->datasend("To: supersun\@gamil.com\n");
$smtp->datasend("From: Perl邮件发送程序 ");
$smtp->datasend("Subject: 测试Perl邮件发送程序 ");
$smtp->datasend("\n");
$smtp->datasend(" 这是一个邮件程序测试 ");
$smtp->dataend();
$smtp->quit;
发表评论