> -----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.
