Stay on the good side Jared. Your code snippet looks great to me, and looking at it finally showed me a clear example of how that q{} thingy works. I write a lot of Oracle utility type stuff that has to run on both Windows and UNIX. Perl does the job every time.
Rachel, Jared should admit that he would probably need just a few more characters (about 6 alpha and 48 special!) to actually run the code, but the essence is there and with a glance you can tell that it does produce CSV output using DBI/DBD to access the database.
:)
Dan.
"There are only 10 types of people in the world: Those who understand binary, and those who don't."
-----Original Message-----
From: Grabowy, Chris [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, August 14, 2002 8:38 PM
To: Multiple recipients of list ORACLE-L
Subject: RE: RE: Dba tools on NT
How many developers can maintain that "cryptic" Perl code?
Come over to the light...don't be afraid.
Chris
PS. 20 alpha characters...and about 25 special characters in that bit of
code.....hmmmmm, not going to say anything about that.
-----Original Message-----
To: [EMAIL PROTECTED]
Cc: Grabowy, Chris
Sent: 8/14/2002 2:03 PM
How many of those "non-cryptic" languages can dump a table
to a CSV file in 2 lines of (readable ) code?
while ( my $ary = $sth->fetchrow_arrayref ) {
print q{"} . join(q{","},@{$ary}) . qq{"\n};
}
Come over to the dark side Chris. ;)
Jared
