I am importing data from a ':' separated file into a MySQL database. I have split the different elements into an array, but my INSERT statement results in the following error:

DBD::mysql::st execute failed: called with 26 bind variables when 24 a
+re needed at csv2sql.pl line 18, <GLEANDATA> line 193.
[download]

I know that some fields in the text file are empty (e.g. 'foo:bar::bash'). The split should result in an array like this:

("foo","bar","","bash")
[download]

Instead, DBI seems to ignore the "" and only attempts to insert foo, bar, and bash.

How do I insert everything, including undefined values?

Perl:

#!/usr/bin/perl -w

use strict;
use DBI;

my $dbh = DBI->connect("DBI:mysql:db;host=host.com", 'user', 'pw')
    or die ("Could not connect: " . DBI->errstr );

open GLEANDATA, 'gleandata.csv' or die "Could not open file\n";
my @row;
my $sth;
my $line;
while (<GLEANDATA>) {
    $line = $_;
    my @row = split(/:/, $line);
    $sth = $dbh->prepare("INSERT INTO glean_data (gleaner, contact_nam
+e, title_position, city, county, phone, email, dates_called, possible
+_donation, notes_comments, followup_needed, mailing_address, physical
+_address, crops, specific_crop, estimated_quantity, estimated_labor, 
+possible_glean_dates_times, ladders_to_lend, picking_bags_to_lend, bi
+ns_or_boxes, existing_relationship, status, time_of_year_to_call) VAL
+UES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
    $sth->execute(@row);
}

close GLEANDATA or die "Could not close file\n";

$dbh->disconnect;
[download]

Just so you know, there are 24 columns I am trying to insert into.

SQL:

CREATE TABLE glean_data (
    id MEDIUMINT NOT NULL AUTO_INCREMENT,
    gleaner VARCHAR(50),
    contact_name VARCHAR(50),
    title_position     VARCHAR(50),
    city VARCHAR(50),
    county VARCHAR(50),
    phone VARCHAR(20),
    email VARCHAR(50),
    dates_called VARCHAR(200),
    possible_donation VARCHAR(150),
    notes_comments VARCHAR(5000),
    followup_needed VARCHAR(50),
    mailing_address VARCHAR(100),
    physical_address VARCHAR(100),
    crops VARCHAR(150),
    specific_crop VARCHAR(150),
    estimated_quantity VARCHAR(150),
    estimated_labor VARCHAR(150),
    possible_glean_dates_times VARCHAR(500),
    ladders_to_lend VARCHAR(150),
    picking_bags_to_lend VARCHAR(150),
    bins_or_boxes VARCHAR(50),
    existing_relationship VARCHAR(150),
    status VARCHAR(150),
    time_of_year_to_call VARCHAR(50),
    PRIMARY KEY (id)
)
[download]

Thank you for your help.

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.