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;

 

java异常代码编写应该注意的问题

1。 一个try语句,可以加上多个catch块的,其实也不一定要写很多个catch块,因为只需要写一个 catch(Exception e){System.out.println(e); } 就可以了...
  • fuuckwtu
  • fuuckwtu
  • 2010年08月20日 14:48
  • 1340

内核对异常的处理

与中断不同,各种异常都具有固定的中断向量以及固定的异常服务程序(在 trap_init 函数中指定)。因 此,当异常发生时,将直接跳转到相应的服务程序并执行。 异常服务程序都定义在 arch/i3...
  • xzongyuan
  • xzongyuan
  • 2014年02月20日 09:07
  • 1094

perl 监控主机报警

#l!/usr/bin/perl ##采集系统资源 use Sys::Hostname; use HTTP::Date qw(time2iso str2time time2iso time2isoz)...
  • zhaoyangjian724
  • zhaoyangjian724
  • 2015年05月11日 18:03
  • 257

[原创] 使用Perl实现系统服务监控和报警

使用Perl实现系统服务监控和报警作者:heiyeluren博客:http://blog.csdn.net/heiyeshuwu时间:2008-5-22一般的Web站点来说,都包括很多服务和应用,我们...
  • heiyeshuwu
  • heiyeshuwu
  • 2008年05月22日 19:42
  • 3119

异常退出后的循环执行问题

    在业务处理过程中,有时希望能在异常出现时,记录我们的异常信息但不退出系统,以便继续执行后续操作。下面的代码给出了一种实现的方法,主要依据是exception可以出现在任意义个begin和end...
  • 47522341
  • 47522341
  • 2008年04月19日 10:37
  • 1093

android static变量的使用

static变量在java中用于不同的对象之间共享数据,没有出现过什么问题。但android中static变量在共享数据的是时候出现问题:我改变了static的值,可是拿到的仍是初始值。 经过研究发现...
  • hansaisai
  • hansaisai
  • 2013年12月05日 14:07
  • 1513

关于MyEclipse的一些设置(代码提示、显示行号)

MyEclipse的一些设置
  • longG_yang
  • longG_yang
  • 2010年06月30日 23:38
  • 11414

java 自定义异常,记录日志简单说明!留着以后真接复制

java 自定义异常,记录日志简单说明!留着以后真接复制
  • liangrui1988
  • liangrui1988
  • 2014年05月11日 00:36
  • 1206

第四章 Controller接口控制器详解(7 完)

1、数据绑定失败:比如需要数字却输入了字母; 2、数据不合法:可以认为是业务错误,通过自定义验证器验证,如用户名长度必须在5-20之间,我们却输入了100个字符等; 3、错误对象:...
  • Jason_Fish
  • Jason_Fish
  • 2017年02月24日 21:05
  • 251

两招定位服务器高负载异常告警

    机器高负载告警一般是CPU负载在99-100%,同时伴有大量的网络出包和入包量,常见的原因是机器在某个时段进行LOG,数据等备份操作。1,首先,执行top -d 1,查看CPU的负载情况和对应...
  • tenfyguo
  • tenfyguo
  • 2011年05月19日 15:15
  • 2988
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:perl实现异常时报警
举报原因:
原因补充:

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