ITPub博客

首页 > 应用开发 > IT综合 > 用perl写的一个watchdog程序

用perl写的一个watchdog程序

原创 IT综合 作者:wangzh3 时间:2006-03-23 20:28:51 0 删除 编辑

关键字: perl 监控 web服务 重启web服务

需要写个程序来监控web服务的情况,如果web服务由于某种原因吊死,就需要重启tomcat。所以就写了这个简单的程序,这个算是雏形吧。有够郁闷,还要写这种程序,^_^。

说实话,这个程序没有什么技术含量,可是由于我不懂,还是在网上找了一阵子才看到可以使用LWP。

[@more@]

use strict;
use warnings;
use LWP::UserAgent;

my $browser = LWP::UserAgent->new;
my $url = 'http://localhost:8080/index.jsp';

my $response = $browser->get( $url );

if($response->is_success){
exit;#如果首页响应,则退出,否则重启tomcat
}else{
system("C:/zxin10/Was/Tomcat/bin/shutdown.bat");
system("C:/zxin10/Was/Tomcat/bin/startup.bat");

}

需要用到一个包,可以到cpan下载吧。名字叫做lwp。下载到本地之后,如果是windows平台,解压后到对应路径执行 perl make.pl就可以了。如果是unix/linux平台,则需要执行如下:

perl make.PL

make

make test

make install

然后就ok了。

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/47869/viewspace-822480/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 也做一次流氓?
下一篇: 浑浑噩噩的醒来
请登录后发表评论 登录
全部评论
  • 博文量
    301
  • 访问量
    10831666