Monks,

I'm trying to add records to a MySQL database using DBI. The format that I'm using to add it to the db works when I print it to command line. Here is what it looks like: 
IP = 192.168.30.136
Cname = WKBX0010B-A
Port = 135
Service = DCE endpoint resolution
Banner = 
IP = 192.168.30.136
Cname = WKBX0010B-A
Port = 80
Service = World Wide Web HTTP
Banner = HTTP/1.1 200 OK..Server: Microsoft-IIS/5.0..Date: Thu, 14 Mar
+ 2002 14:37:54 GMT..Connection: Keep-Alive..Content-Length: 1270..
IP = 192.168.30.136
Cname = WKBX0010B-A
Port = 139
Service = NETBIOS Session Service
Banner =

[download]
I'm trying to do the same thing with DBI, but I'm getting weird results. I would like the db to look like this 
+--------------+----------------+----------+---------+--------+
| ip           | svr_name       | port     | service | banner |
+--------------+----------------+----------+---------+--------+
| 192.168.30.136  | WKBX0010B-A  | 135      | DCE endpoint resolution 
+   | NULL   |
| 192.168.30.136  | WKBX0010B-A        | 80     | World Wide Web HTTP 
+   | HTTP/1.1 200 OK..Server: Microsoft-IIS/5.0..Date: Thu, 14 Mar 20
+02 14:37:54 GMT..Connection: Keep-Alive..Content-Length: 1270..   |
| 192.168.30.136 | WKBX001B-A | 139 | NETBIOS Session Service    | NUL
+L   |
+--------------+----------------+----------+---------+--------+

[download]
Here is my code that I thought would work (note most of the file matching code was written by danger): 
#!/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;

[download]
I appreciate any help

Thanks,
Dru
Another satisfied monk.

In reply to Adding the values of a Hash to a MySQL Database by dru145

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.