Hey - I'm trying to put this together from studying the perldoc. Do I need to define
"my $table =" and if so, to the csv file? Also, the number of scalars should equal the
number of question marks?
use DBI;
my $dbh = DBI->connect(qq{DBI:CSV:csv_sep_char=\\;});
my $dbh->{'csv_tables'}->{'logger'} = { 'file' => 'logger.csv'};
my $sth = $dbh->do("INSERT INTO $table VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", undef,
$name_logger, $phone_logger, $email_logger, $name_landowner, $phone_landowner,
$county, $logging_location, $logging_begin, $acres, $conf_number);
my $sth->execute() or die "Cannot execute: " . $sth->errstr();
my $sth->finish();
my $dbh->disconnect();
Many thanks,
Gregg
---------------------------------
Do You Yahoo!?
HotJobs, a Yahoo! service - Search Thousands of New Jobs
