用perl寫的一個watchdog程式

關鍵字： perl 監控 web服務 重啟web服務

需要寫個程式來監控web服務的情況，如果web服務由於某種原因吊死，就需要重啟tomcat。所以就寫了這個簡單的程式，這個算是雛形吧。有夠鬱悶，還要寫這種程式，^_^。

說實話，這個程式沒有什麼技術含量，可是由於我不懂，還是在網上找了一陣子才看到可以使用LWP。

[@more@]

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

my $browser = LWP::UserAgent->new;
my $url = '';

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了。