A quick question for those of you familiar with Perl DBI module. The basics of the code is pulling a table out of an obsolete database and putting it into a new mySQL database.
I'm approaching this using a set of arrays -- basically, pulling one row at a time from the old table and putting it into the new & linking it with the column names.
when I check the lenght of the arrays of both @col and @values in perl -- the result is the same: the number of columns is 10; the number of values is 10,
however when I join the columns and values into strings "," deliminated, and try to INSERT the row into the database, I get a error: DBD::mysql::db do failed: Column count doesn't match value count
here's the code snippet:
There is some strange syntax in the old table to begin with, a column including both ";" and "." could this choking the mySQL?while (@tmp = $hi->fetchrow_array()) { push(@col, $tmp[0]); } while (@org = $sth->fetchrow_array()) { my $i; for ($i = 0; $i <= 9 ; $i++) { push(@values, $org[$i]); } } my $cc = join(", ", @col); my $vv = join(", ", @values); print "\n\n $vv \n $cc"; my $sql_2 = qq{INSERT INTO mfa.genome ($cc) VALUES ("$vv")}; my $now = $DBHandle->prepare( $sql_2 ); $DBHandle->do($sql_2);
many thanks,
jperlq
In reply to Perl DBI and mySQL by jperlq
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |