#!/usr/bin/perl

use strict;
use DBI;
use Data::Dumper;

# decide which bits of the records you want to keep

my @fields_to_store = qw(date name to file action virus);

# turn that into a hash with which to screen regex matches

my %field_ok = map { $_ => 1 } @fields_to_store;

# and two strings for the database insert statement: one of column 
# names, one with the proper number of placeholders.

my $field_list = join(',', @fields_to_store);
my $placeholders = join(',', ('?' x scalar(@fields_to_store)));

# connect to the database 

my $dsn = "DBI:mysql:database=xxxx;host=localhost";
my $dbh = DBI->connect($dsn, 'xxxx', 'xxxx', {
	'RaiseError' => 1
});

# build the instruction that will be used to insert each record 

my $insert_handle = $dbh->prepare("insert into xxxx ($field_list) values ($placeholders)");

# read the file. this %gather basket is crude, but effective 
# enough, so i offer it in the spirit of tmtowtdi

my %gather;
while(<DATA>) {

 # match data line?

	if (m/^(\w+):\s*(.+?)\s*$/ && $field_ok{lc $1}) {
		die "overwriting $1 field: broken" if exists $gather{lc $1};
		$gather{lc $1} = $2;
	}

# match dividing line?

	if (m/^-+\s*$/ && keys %gather) {

  # field order matters, of course, so use the fields_to_store array  
  # in a map{}  to order the contents of %gather, which would 
  # otherwise be jumbled
	
		$insert_handle->execute( map { $gather{lc $_} } @fields_to_store );
		print Dumper \%gather; 
		%gather = ();
	}
}

$insert_handle->finish;

__DATA__
----------------------------------
Date: 06/30/2002 00:01:21
From: pminich@foo.com
To: esquared@foofoo.com
File: value.scr
Action: The uncleanable file is deleted.
Virus: WORM_KLEZ.H
----------------------------------
Date: 06/30/2002 00:01:21
From: mef@mememe.com
To: inet@microsoft.com
File: Nr.pif
Action: The uncleanable file is deleted.
Virus: WORM_KLEZ.H
----------------------------------