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

#!/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,'')."?= <$mailto> \n"); 
        $smtp->datasend("From:=?utf-8?B?".encode_base64($mailfrom,'')."?= <$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();

#!/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 ""