Looks OK to me, seems about right Although when you start using Macros and such the readability drops a little as it can take a bit of jumping around to understand it.
Cheers -- ================================================= Peter McLarty E-mail: [EMAIL PROTECTED] Technical Consultant WWW: http://www.mincom.com APAC Technical Services Phone: +61 (0)7 3303 3461 Brisbane, Australia Mobile: +61 (0)402 094 238 Facsimile: +61 (0)7 3303 3048 ================================================= A great pleasure in life is doing what people say you cannot do. - Walter Bagehot (1826-1877 British Economist) ================================================= Mincom "The People, The Experience, The Vision" ================================================= This transmission is for the intended addressee only and is confidential information. If you have received this transmission in error, please delete it and notify the sender. The contents of this e-mail are the opinion of the writer only and are not endorsed by the Mincom Group of companies unless expressly stated otherwise. Jacques Kilchoer <[EMAIL PROTECTED]> Sent by: [EMAIL PROTECTED] 15-08-2002 09:13 AM Please respond to ORACLE-L To: Multiple recipients of list ORACLE-L <[EMAIL PROTECTED]> cc: Fax to: Subject: RE: RE: Dba tools on NT > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > > 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}; "Readable" code? Now take COBOL, that was readable code! e.g. (from memory - excuse any errors) IDENTIFICATION DIVISION. PROGRAM-ID. DUMP_VALUES. AUTHOR. MOI. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT MYDATAFILE ASSIGN TO "SOMEFILE.DAT" ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD MYDATAFILE. 01 MYCOLS. 05 ID PIC 9(7). 05 NAME. 10 FIRST_NAME PIC X(20). 10 LAST_NAME PIC X(20). PROCEDURE DIVISION. BEGIN. OPEN INPUT MYDATAFILE. READ MYDATAFILE AT END MOVE HIGH-VALUES TO MYCOLS END-READ. PERFORM UNTIL MYCOLS = HIGH-VALUES DISPLAY ID SPACE FIRSTNAME SPACE LASTNAME END-DISPLAY READ MYDATAFILE AT END MOVE HIGH-VALUES TO MYCOLS END-READ END-PERFORM. CLOSE MYDATAFILE. STOP RUN. -- Please see the official ORACLE-L FAQ: http://www.orafaq.com -- Author: INET: [EMAIL PROTECTED] Fat City Network Services -- (858) 538-5051 FAX: (858) 538-5051 San Diego, California -- Public Internet access / Mailing Lists -------------------------------------------------------------------- To REMOVE yourself from this mailing list, send an E-Mail message to: [EMAIL PROTECTED] (note EXACT spelling of 'ListGuru') and in the message BODY, include a line containing: UNSUB ORACLE-L (or the name of mailing list you want to be removed from). You may also send the HELP command for other information (like subscribing).
