Perl定制并发送邮件

  用了两天时间，现学了perl，主要用来发送一些自定义的邮件。注意：邮件正文为eicar，杀毒软件会提示病毒。请使用时将其替换。

简单代码如下：

 

#!/usr/bin/perl use Net::SMTP;sub GetCurTime();$num=@ARGV;$counter=0;if($num != 1){ print "Usage: perl smtp.pl number/n"; print "number: the count of mails to send.Defaut is 1./n"; $ARGV[0]=1;}$smtp=Net::SMTP->new("10.226.70.32",Timeout=>60);if(!$smtp){ print "Connection is refused or times out.Please check the mail server or network connection/n"; exit 0;}#print "/$smtp=$smtp/n";print "/nDomain:",$smtp->domain(),"/n";print "Banner:",$smtp->banner(),"/n";$from='[e-mail]';@to=('[e-mail]','[e-mail]');$body='X5O!P%@AP[4/PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*';$lento=@to;print "sending.../n";for($i=0;$i<$ARGV[0];$i++){ foreach $rcpt (@to) { $counter++; $date=GetCurTime(); $success=$smtp->mail($from); $success=$smtp->to($rcpt); $success=$smtp->data(); $smtp->datasend("From: $from/n"); $smtp->datasend("To: $rcpt/n"); $smtp->datasend("Subject: test$counter/n"); $smtp->datasend("Content-Type: text/plain;/n"); $smtp->datasend("Date: $date/n/n"); $smtp->datasend($body); $smtp->datasend("/n"); $success=$smtp->dataend(); }}print "/n$counter mails have been delivered to /"", $smtp->domain(),"/" successfully./n";$smtp->quit();sub GetCurTime(){ $ctime=localtime(); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); $year+=1900; @month=qw(Jan Feb Mar Apr May June July Aug Sep Oct Nov Dec); $mon=$month[$mon]; $hour=($hour < 10 ? "0$hour":$hour); $min=($min < 10 ? "0$min":$min); $sec=($sec < 10 ? "0$sec":$sec); $date="$mday $mon $year $hour:$min:$sec +0800"; return $date;}

 

 

 

如转载，请注明出处:http://blog.csdn.net/zhangyang0402/archive/2009/11/01/4754782.aspx