linux perl 脚本,检测Linux服务器状态的脚本 Perl与Shell检测服务器状态的脚本

一个自动检测网站服务器alive状态的脚本，分别由perl和shell两种脚本来实现，且可以邮件通知监测到的异常。

例1，Perl采用ICMP检测主机状态。

Perl代码

复制代码 代码示例:

#!/usr/bin/perl -w

#edit: www.jquerycn.cn

use Net::Ping;

use Net::SMTP;

use MIME::Base64;

my @host_array=('192.168.0.10','192.168.0.11');

my $p = Net::Ping->new("icmp");

foreach $host (@host_array)

{

# print "$host is ";

unless($p->ping($host,2))

{

&sendmail($host." is down",$host." is down");

}

# print "\n";

# print "NOT " unless $p->ping($host, 2);

# print "reachable.\n";

sleep(1);

}

sub sendmail(){

my $mailhost = "smtp server domain"; # the smtp host

my $mailfrom = 'your email address'; # your email address

my $mailto='email address you want to send';

my $subject=$_[0];

my $text = $_[1];

$smtp = Net::SMTP->new($mailhost, Hello => 'localhost', Timeout =>120, Debug => 1);

$smtp->auth('user name','password');

$smtp->mail($mailfrom);

$smtp->to($mailto);

$smtp->data();

$smtp->datasend("Content-Type:text/html;charset=utf-8\n");

$smtp->datasend("Content-Transfer-Encoding:base64\n");

$smtp->datasend("To:=?utf-8?B?".encode_base64($mailto,'')."?= \n");

$smtp->datasend("From:=?utf-8?B?".encode_base64($mailfrom,'')."?= \n");

$smtp->datasend("Subject:=?utf-8?B?".encode_base64($subject,'')."?=\n\n");

$smtp->datasend("\n");

$smtp->datasend(encode_base64($text,'')." \n");

$smtp->dataend();

}

$p->close();

例2，Shell通过ping检测主机状态

Shell代码

复制代码 代码示例:

#!/bin/sh

#edit: www.jquerycn.cn

#

pingcmd()

{

prefix="SERVER $1 PING $2"

ping -w 1 -c 1 $2>/dev/null

ret=$?

if [ $ret -eq 0 ]

then printf "$prefix\t OK\n"

else printf "$prefix\t ERROR\n"

fi

return 0

}

echo "---------------------------------------"

echo "核心网1 1.1     PING FROM 1"

echo "---------------------------------------"

server0="182.87.1.3"

server1="182.87.1.2"

pingcmd $server0 $server1

echo ""

以上分享了二个监测Linux服务器状态的脚本，希望大家能够在实际的生产环境中有效利用，对大家有一定的帮助。