#!/usr/bin/perl -w
 
use DBI;
use strict;
 
my $infile = './portscan2.txt';
my %data;
my ($ip,$port);
 
 
open INFILE, "$infile" or die "Can't open $infile: $!\n";
while (<INFILE>){
 if (/(\d+\.\d+\.\d+\.\d+)\s+(\S+)/) {
  $ip = $1;
  $data{$ip}{cname} = $2;
  next;
 }
 if(m/^\s{1}\|___\s+(\d+)\s\s(.*)/){
        $port = $1;
        $data{$ip}{ports}{$port}{service} = $2;
        $data{$ip}{ports}{$port}{banner}  = '';
        next;
    }
 if(m/^\t\s{1}\|___\s+(.*)/){
        $data{$ip}{ports}{$port}{banner} = $1;
        next;
    }
}
 
my ($sth,$i,$j);
 
### Enable error checking
my %attr = (
       PrintError => 0,
       RaiseError => 1,
);
 
### Connect to database
my $dbh = DBI->connect("DBI:mysql:audit", 'username', 'pass', \%attr);
 
for $i (keys %data) {
   for $j (keys %{$data{$i}{ports}}) { 
    $i = $dbh->do("insert into Supersearch set ip='$i',svr_name='$data{$i}{cname}',port='$j',service='$data{$i}{ports}{$j}{service}',banner='$
data{$i}{ports}{$j}{banner}'");
   }
}
  
  
### Disconnect from db
$dbh->disconnect;
exit;