Perl 端口扫描入库的问题
坑爹的是不知道怎么报错。。头疼。。#!/usr/bin/perl
use strict;
use DBI;
use Net::Ping;
my @oder=();
my $in=DBI->connect("DBI:mysql:database=port_scan;host=localhost","root","") or die "NO :$!";
if($in){
print "OK\n";
}
my $p = Net::Ping->new("syn");
for (my $port=1;$port<65535;$port++){
$p->port_number($port);
for(my $i=1;$i<=255;$i++){
$p->ping('192.168.31.'.$i);
}
while (my ($host,$rtt,$ip) = $p->ack) {
# if($insert){
# print "HOST: $host [$ip] port: $port \n";
push(@oder,$host.'|'.$port);
# }
}
foreach my $key (@oder){
my @tmp=split(/\|/,$key);
my $insert=$in->do("insert into result(ip,port)values('$tmp',$tmp)");
}
$in->disconnect();
}
页:
[1]