Hello,
sub readDataObject {
my $dir = shift;
my $table = shift;
my $dbh = DBI-connect(DBI:CSV:f_dir=$dir);
$dbh-{csv_tables}-{$table} =
{'eol'=\n,'file'=$table.csv};
my $sth = $dbh-prepare(SELECT * FROM $table);
my $rv = $sth-execute;
return $sth;
}
I get the results I want,
As much as I shouldn't say this, but run the script without the -w to get
rid of this message, or define a __WARN__ handler.
Ilya
-Original Message-
From: Pierre Gilbert
To: [EMAIL PROTECTED]
Sent: 10/24/01 10:20 AM
Subject: Unwanted error message with DBD::CSV
Hello,
sub
In article
[EMAIL PROTECTED],
[EMAIL PROTECTED] (Ilya Sterin) wrote:
As much as I shouldn't say this, but run the script without the -w to get
rid of this message, or define a __WARN__ handler.
Ilya
or use
local $^W;
within the loop
--
Scott R. Godin| e-mail :