首页 > 代码库 > 基于Perl的一个网站监控脚本

基于Perl的一个网站监控脚本

朋友给了我一个课题,就是用perl实现一个网站监控的脚本。

这个脚本主要实现的功能就那么几点,每间隔一段时间获取网站的应答状态、网站的响应时间。

如果应答出错,通过邮件的形式将应答状态码发送过来。

首先先处理一下应答状态。

这个可以使用LWP::UserAgent实现。

实现很简单,通过查看CPAN的例子可以看到 http://search.cpan.org/~mschilli/libwww-perl-6.08/lib/LWP/UserAgent.pm

require LWP::UserAgent; my $ua = LWP::UserAgent->new;$ua->timeout(10);$ua->env_proxy; my $response = $ua->get(http://search.cpan.org/); if ($response->is_success) {    print $response->decoded_content;  # or whatever}else {    die $response->status_line;}

比较容易理解,起初是new一个LWP::UserAgent的对象,设置超时时间为10秒,环境变量获取代理设置,然后去获取网页的应答,访问成功则对应的$response->is_success为真,否则会返回错误的状态码。

这里需要说明一下的是,早期的LWP::UserAgent似乎只支持http而不支持https的,如果使用https的协议需要再安装一个LWP::Protocol::https,所以在没有装这个模块的时候会出一个错误。模块都是由cpan直接安装的,命令行打cpan然后install LWP::UserAgent,install LWP::Protocol::https这样。

接下来处理网站的响应时间,发现LWP::UserAgent似乎没有这个处理,故使用了Net::Ping这个模块,同样第一次使用的话先得通过cpan进行install。由于cpan中的模块有很多,模块可能还有更好的选择。

下面是cpan中给出的例子:http://search.cpan.org/~smpeters/Net-Ping-2.41/lib/Net/Ping.pm

# High precision syntax (requires Time::HiRes)    $p = Net::Ping->new();    $p->hires();    ($ret, $duration, $ip) = $p->ping($host, 5.5);    printf("$host [ip: $ip] is alive (packet return time: %.2f ms)\n", 1000 * $duration)      if $ret;    $p->close();

Net::Ping->new([$proto [, $def_timeout [, $bytes [, $device [, $tos [, $ttl ]]]]]]);

$proto的default值是tcp,其他还有"udp", "icmp", "stream", "syn", or "external"这些。

这里我用到的是syn这个,当这个syn协议被指定时,将会发送一个TCP SYN packet到网站并马上返回,syn包发送成功则返回true,发送失败则返回falase,由于不需要像tcp那样经过三次握手,返回的值可能是不确定的,不过由于响应的速度快,更适合向多个地址发送packet。

($ret, $duration, $ip) = $p->ping($host, 5.5);

返回成功则ret将会为true,得到一个包的返回时间duration,和域名对应的ip地址,5.5表示timeout,default值为5秒。

$p->hires();

这个函数需要使用Time::HiRes这个模块,为了返回微秒级的响应时间,就必须使用这个函数,所以duration得到的值是个微秒级的浮点型数值,故*1000将其转化成毫秒单位。

同样是封存了挺久的一份草稿呀。不过这里涉及到了Perl的几个库,所以就当一份资料存起来吧。

基于Perl的一个网站监控脚本