脚本名：monitor_port.pl

作用：扫描特定端口是否正常

脚本：

#!/usr/bin/env perl

 ($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5];
 ($sec,$min,$hour,$mday,$mon,$year) = (
    sprintf("%02d", $sec),
    sprintf("%02d", $min),
    sprintf("%02d", $hour),
    sprintf("%02d", $mday),
    sprintf("%02d", $mon + 1),
    $year + 1900
);

$date="$year-$mon-$mday $hour:$min:$sec";

##########################################################
open (FH,"/opt/monitor/port.list") || die;
while (defined($port_tn=)) {
        ($host_ip,$mod_n,$port_t,$port_n)=split(/\t/,$port_tn);
    chomp $host_ip;
    chomp $mod_n;
    chomp $port_t;
    chomp $port_n;
    ch_result();
    }

####################################################
sub ch_result {

    open LOG,">>/opt/monitor/port_status.log";
    select LOG;

    if($port_t eq 'tcp'){
       `/usr/bin/nc -z -w2 $host_ip $port_n`;
       $flag = `echo $?`;
    }else{
       `/usr/bin/nc -u -z -w2 $host_ip $port_n`;
       $flag = `echo $?`;
    }

###########################
    if($flag != 0){
        print "$date $host_ip $mod_n $port_t $port_n is closed!\n";
    }
    close(LOG);
}

文件1、port.list 定义要扫描的端口内容，

eg:

172.16.2.2      httpd     tcp     80
172.16.2.2      tomcat     tcp     8080

文件2、port_status.log 记录端口失败信息

eg:

2014-11-25 20:30:01 172.16.2.2 httpd tcp 80 is closed!
2014-11-25 20:30:01 172.16.2.2 tomcat tcp 8080 is closed!

使用方法：

    只要将此脚本添加到crontab即可！

*/5 * * * * cd /opt/monitor; ./monitor_port.pl > /dev/null 2>&1