#!/usr/bin/perl
use HTTP::Date qw(time2iso str2time time2iso time2isoz);
use Net::Ping;
use Socket;
use Net::SMTP;
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 = 'zhao.yangjian@163.com';
my $mail_pwd = 'xxxxx';
my $mail_server = 'smtp.163.com';
my $from = "From: $mail_user\n";
my $subject = "Subject: zjcap info\n";
my $info = "$CurrTime--$n";
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("\n\n");
$smtp->datasend("$message\n"); # set content
$smtp->dataend();
$smtp->quit();
};
use DBI;
$database='zjzc';
$user="root";
$passwd="xxxx";
$host="192.168.32.x";
$dbh = DBI->connect("dbi:mysql:database=$database;host=$host;port=3306",$user,$passwd) or (die "can't connect to database ", send_mail('zhaoyangjian@zjcap.cn', "test-database $database is lost"));
$database='zjzc';
$user="backup";
$passwd="axxxx";
$host="x.x.x.x";
$dbh = DBI->connect("dbi:mysql:database=$database;host=$host;port=3306",$user,$passwd) or (die "can't connect to database ", send_mail('zhaoyangjian@zjcap.cn', "database $database is lost"));
$database='pay';
$user="xxxx";
$passwd="xxx";
$host="1x1.x.x3.x";
$dbh = DBI->connect("dbi:mysql:database=$database;host=$host;port=3306",$user,$passwd) or (die "can't connect to database ", send_mail('zhaoyangjian@zjcap.cn', "database $database is lost"));
perl 监控mysql数据库
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
上一篇:perl 使用post和get
下一篇:perl 批量监控主机ping
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
perl创建mysql数据库
##------------------------------
mysql perl ci 数据库 创建表