关键字： 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博客 ” ，链接：https://blog.itpub.net/47869/viewspace-822480/ ，如需转载，请注明出处，否则将追究法律责任。
-
博文量301
-
访问量10875979
