perl 监控mysql数据库
2015-06-11 15:54
656 查看
#!/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"));
相关文章推荐
- centos下django需要安装sqllite
- sysbench对postgresql数据库进行oltp测试
- PL/SQL Developer 9.x 注册码
- 理解MySQL——架构与概念
- 理解MySQL——架构与概念
- PLSQL developer连接不上64位Oracle的解决方法
- 运维角度浅谈Mysql数据库优化
- 运维角度浅谈MySQL数据库优化(转)
- MySQL 系统架构 说明
- PL/SQL Developer 连接远程的Oracle 服务器
- wan5
- 3、Django、MySQL第一个模型
- bat 压缩备份文件 xcopy mysqldump备份文件和数据库
- 运维角度浅谈:MySQL数据库优化
- 第十一篇 SQL Server代理维护计划
- ORA-12154: TNS: 无法解析指定的连接标识符 - 解决方案
- PL/SQL Developer自动补全SQL技巧
- PLSQL Developer 不能连接 oracle 11g 64位 的解决办法
- Hive—Hbase—Sqoop—Mysql
- Ubuntu 14.04一步一步安装Openstack Kilo版本-5(mysql)