use DBI;
my $dsn="DBI:mysql:host=localhost;database=finance";
my $dbh = DBI -> connect ($dsn, "","") or die "Cannot connect to server\n";
print "Connected\n";

open(INPUT,"S&P.csv") or die "Can't open file: $!\n";
$i = 0;
while ( $line = <INPUT> ) {
	chop($line);
	$spqueryString = "select * from balanceSheet where symbol  = '$line'";
	$spquery=$dbh->prepare($spqueryString);
	$spquery->execute();
	print("line = $line \n");
	while(@row = $spquery->fetchrow_array()) { 
	print "symbol = $row[0] \n";
	for $count(2..38){
		if(($row[$count])== NULL){
		$row[$count]=NULL;
		}
	}
	$insertQueryString = "INSERT INTO SPBalanceSheet VALUES(\'$row[0]\',\'$row[1]\',$row[2],$row[3],$row[4],$row[5],$row[6],$row[7],$row[8],$row[9],$row[10],$row[11],$row[12],$row[13],$row[14],$row[15],$row[16],$row[17],$row[18],$row[19],$row[20],$row[21],$row[22],$row[23],$row[24],$row[25],$row[26],$row[27],$row[28],$row[29],$row[30],$row[31],$row[32],$row[33],$row[34],$row[35],$row[36],$row[37],$row[38])";
	$insertquery=$dbh->prepare($insertQueryString);
	$insertquery->execute();
	}
	$i++

}




close(INPUT);

print "Inserted $i rows of data into the SPBalanceSheet table\n";

$dbh->disconnect();
print "Disconnected\n";
exit(0);