The solution was Perl's IO::Select()
Took 2 lines of code, as it should in perl. :-)
>>> Jeff Zucker <[EMAIL PROTECTED]> 11-May-06 12:16:35 PM >>>
Tim Bunce wrote:
> On Thu, May 11, 2006 at 08:59:25AM -0400, Mark Galbreath wrote:
>
>> Tim,
>>
>> I have preactically memorized the docs I have read them so many times. If
>> you have a better suggestion, I am wide open for it!
>>
>
> Something simple would do:
>
> $sth = $dbh->prepare(...);
> $sth->execute;
> while ( @row = $sth->fetchrow_array ) {
> print join("|", @row), "\n";
> }
>
> (I'm assuming you know your data doesn't contain any | characters.)
And that the data doesn't contain any newlines. :-)
If you have embedded stuff, you might want:
my $csv_dbh = DBI->connect('dbi:CSV...);
my $mysql_dbh = DBI->connect('dbi:msqyl...);
my $mysql_sth = $mysql_dbh->prepare(... any MySQL query ...);
$csv_dbh->do(
"CREATE TABLE myCSV AS SELECT * FROM IMPORT(?)"
, {}
, $mysql_sth
);
That snippet will perform the MySQL query and create a properly escaped
CSV file of the results.
--
Jeff
