#! c:\perl\bin\perl.exe -w
#
# InsertDrivers.pl

#Importations and Declarations
use Win32::ODBC;
use DBI;
my $DSN='Database';
my $field1='server';
my $field2='nic1_drv_version';
my ( $dbh,
     $sth1,
     $sth2,
     $vals,
     $driver,
     $servlist,
     $row,
     $sqlstatement1,
     $sqlstatement2,
     @row);

#Open file for reading
open(INPUT,"file.txt") || die;
while (INPUT)
	{
	my ($servlist, $driver)=split(/,/);
	#Connect to database
	my $dbh=DBI->connect("dbi:ODBC:$DSN", "admin", "") or die "$DBI::errstr\n";
	$sqlstatement1=("SELECT server, nic1_drv_version FROM Servers");
	$sth1=$dbh->prepare($sqlstatement1);
	$sth1->execute || die;
	@row=$sth1->fetchrow_array();
	foreach ("$row\n" eq "$field1\n")
			{
			$sqlstatement2=("INSERT INTO Servers ($field2) VALUES ($driver)");
			$sth2=$dbh->prepare($sqlstatement2);
			$sth2->execute || die;
			}
close (INPUT);
$sth1->finish;
$sth2->finish;
$dbh->disconnect;
}