perl实现异常时报警

转载 2007年09月27日 14:58:00

#!/usr/bin/perl -w
use DBI;
use LWP::Simple qw(get);

# $driver="mysql";
$dbh=DBI->connect("DBI:mysql:csunet:localhost","root","")||die"can not connect database";

# 产生当天日期
$year = (gmtime time)[5] + 1900;
$month = (gmtime time)[4] + 1;
$date = (gmtime time)[3];
$today = $year."-".$month."-".$date;

$sql = "select phone from duty_info where RiQi='" .$today. "'";

$sth=$dbh->prepare($sql) || die "Occur an error when query database!";
$sth->execute();
$numRows=$sth->rows;

while(@row=$sth->fetchrow_array)
{
$number = $row[0];
}

if($numRows == 1)
{
my $url = 'http://202.197.54.130:9999/cgi-bin/csend.exe?N=13687363993,' .$number. '&M=省网7206路由器出现故障请检查';
my $content = get $url;

print $content;
print "/n";
}

print "满足条件的数为: $numRows /n";
print $today;
print "/n";
print $sql;
print "/n";

$sth->finish();
$dbh->disconnect();

exit 0;

 

相关文章推荐

预测异常报警模型实践

一、前言 外卖业务的快速发展对系统稳定性提出了更高的要求,每一次订单量大盘的异常波动,都需要做出及时的应对,以保证系统的整体稳定性。如何做出较为准确的波动预警,显得尤为重要。 从时间上看,外卖...
  • LW_GHY
  • LW_GHY
  • 2017年05月09日 16:22
  • 1045

supervisord 进程异常报警

supervisord对于启动进程简直是太方便了,一改启动必须登录服务器,切目录,运行,查看状态,可以zaisupervisord上面一目了然,但是我们不能一直盯着看呀,万一有个程序异常,咋办来?参考...

机器学习模型-外卖订单量预测异常报警模型实践

一、前言 外卖业务的快速发展对系统稳定性提出了更高的要求,每一次订单量大盘的异常波动,都需要做出及时的应对,以保证系统的整体稳定性。如何做出较为准确的波动预警,显得尤为重要。 从时...
  • xinzhi8
  • xinzhi8
  • 2017年05月17日 16:10
  • 408

perl的异常处理die、warn、eval函数--DBI的RaiseError

在很多情况下,系统调用可能会失败;例如,尝试打开不存在的文件,或者删除某个仍含有文件的目录,或者尝试读取没有读权限的文件。在前面的示例中,我们已经用到了die函数,本节将 详细讨论有关错误处理和错误处...

cacti实现短信报警v1.1

cacti实现短信报警v1.1

windows下如何实现磁盘满额自动邮件报警

该问题分为两个步骤来考虑,一是如何监测磁盘容量;二是如何自动邮件报警。 第一个问题有两种解决方法,一是利用命令行下的wmic命令来写一个bat脚本;二是利用windows自带的性能监控。第一种方法比较...
  • ymwugui
  • ymwugui
  • 2013年11月05日 10:00
  • 1941

使用register_shutdown_function实现php项目脚本执行失败的实时报警

背景:当线上php脚本执行失败时,希望能够实时地自动发送报警邮件,而不是等收到用户的反馈才知道有bug存在。     分析:当我们的php脚本正常执行完成或意外死掉导致PHP执行即将结束时,regi...

整合nagios+cacti+微信、飞信实现网络监控系统报警

系统环境:rhel6.4 selinux disabled  和 iptables 整合cacti和nagios是利用了cacti的一个插件nagios for cacti,它的原理是将n...

利用Linux Shell脚本实现MySQL自动监控和报警

本文主要研究如何利用 Linux Shell 脚本和飞信 PI 来实现 MySQL 数据库的自动监控和短信报警,使 DBA 从繁重和重复的监控工作中解脱出来,一边享受马尔代夫的阳光、沙滩,一边实时监控...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:perl实现异常时报警
举报原因:
原因补充:

(最多只允许输入30个字)