简练的端口扫描脚本

90jk

脚本名：monitor_port.pl
作用：扫描特定端口是否正常
脚本：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

#!/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=<FH>)) {         ($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:

1 2	172.16.2.2      httpd     tcp     80 172.16.2.2      tomcat     tcp     8080

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

1 2	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即可！

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