简练的端口扫描脚本

脚本名：monitor_port.pl

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

脚本：

#!/usr/bin/env?perl

?($sec,$min,$hour,$mday,$mon,$year)?=?(localtime)[0..5];
?($sec,$year)?=?(
????sprintf("%02d",?$sec),????sprintf("%02d",?$min),?$hour),?$mday),?$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:

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