v-lhb-db01:/root/sbin# cat s1.pl
use Net::SMTP;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
sub send_mail{
if (@_ != 2){print "请输入2个参数\n";exit 1};
my $CurrTime = time2iso(time());
my $to_address = shift;
my $mail_user = '[email protected]';
my $mail_pwd = 'zhaoyangjian724';
my $mail_server = 'smtp.163.com';
my $from = "From: $mail_user\n";
my $subject = "Subject: zjcap info\n";
my $info = "$CurrTime--$mess_info";
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 subje
perl 子程序传递参数
最新推荐文章于 2022-06-30 11:23:51 发布