How would I check for null fields when writing to a database with a CSV file?
$dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\,});
$dbh->{'csv_tables'}->{'info'} = { 'file' => 'cust_sum_da.csv'};
$sth = $dbh->prepare("SELECT * FROM info");
$sth->execute();
my($one, $two, $three, $four, $five, $six, $seven, $eight, $nine, $ten
+, $eleven, $twelve, $thirteen, $fourteen, $fifteen, $sixteen);
$sth->bind_columns(undef, \$one, \$two, \$three, \$four, \$five, \$six
+, \$seven, \$eight, \$nine, \$ten, \$eleven, \$twelve, \$thirteen, \$
+fourteen, \$fifteen, \$sixteen);
while ($sth->fetch) {
$SqlStatement4 = ("INSERT INTO Customer_Information " .
"(CustomerNumber, Name, Address1, Address2, City, State, ZipCode, Em
+ail, DefaultPassword) " .
"VALUES ('$one', '$two', '$three', '$four', '$six', '$seven', '$eight'
+, '$nine', '$sixteen') ");
$db->Sql($SqlStatement4);
}
$db->Close();
$sth->finish();
# print $SqlStatement;
exit;