Select Code to Download

Select or download this

        while (my $row = $csv->getline($fh)) {
            $prep = $db->prepare("INSERT INTO $table VALUES (\"" . joi
+n('","', $csv->fields()) . "\")")
                    or die "Cannot prepare database " . $db->errstr() 
+. "\n";
            if (!$prep->execute()) { die "Failed to write row " . $db-
+>errstr() . "\n"; }
        }

Select or download this
DBD::mysql::st execute failed: Column count doesn't match value count at row 1 at ./test.pl line 85, <$fh> line 2.