perl 子程序传递参数
发布时间:2020-12-15 23:44:56 所属栏目:大数据 来源:网络整理
导读: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 = 'zh
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 = 'zhao.yangjian@163.com'; my $mail_pwd = 'zhaoyangjian724'; my $mail_server = 'smtp.163.com'; my $from = "From: $mail_usern"; my $subject = "Subject: zjcap infon"; 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 subject $smtp->datasend("nn"); $smtp->datasend("$messagen"); # set content $smtp->dataend(); $smtp->quit(); }; send_mail; v-lhb-db01:/root/sbin# perl s1.pl 请输入2个参数 --------------------------------------------------------------------- v-lhb-db01:/root/sbin# perl s1.pl 请输入2个参数 Auth Error! No such file or directory at s1.pl line 19. 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"}; my $CurrTime = time2iso(time()); my $to_address = shift; my $mail_user = 'zhao.yangjian@163.com'; my $mail_pwd = 'zhaoyangjian724'; my $mail_server = 'smtp.163.com'; my $from = "From: $mail_usern"; my $subject = "Subject: zjcap infon"; 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 subject $smtp->datasend("nn"); $smtp->datasend("$messagen"); # set content $smtp->dataend(); $smtp->quit(); }; send_mail; v-lhb-db01:/root/sbin# perl s1.pl 请输入2个参数 Auth Error! No such file or directory at s1.pl line 19. 此时程序没退出,继续运行了 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |