use Win32::Process::Info;
while (1==1){
use Sys::Hostname;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Net::SMTP;
if ( $#ARGV < 1 ){
print "please input 程序目录 程序名!\n";
exit(-1);
};
open( FILE, "<", "mail.conf" );
my @temp=<FILE>;
foreach (@temp) {
chomp $_;
($name,$passwd,$server,$send) = split(/\s /,$_);
};
close FILE;
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 = "$server";
my $from = "From: $mail_user\n";
my $subject = "Subject: zjcap info\n";
my $info = "$CurrTim
转载请注明原文地址: https://ju.6miu.com/read-1124136.html
