introspection (and Perl 6)
publiustemp-londonpm at yahoo.com
Tue Jan 22 00:16:17 GMT 2008
--- Ovid <publiustemp-londonpm at yahoo.com> wrote:
> IDENTIFICATION DIVISION.
> PROGRAM-ID. NOT-PERL-SIX.
> WORKING-STORAGE SECTION.
> 01 WIBBLES.
> 05 NICK PIC X(10) VALUE "chromatic".
> 05 FILLER PIC XXXX.
> 05 TEMPER PIC X(10) VALUE "snarky".
> 01 YADDA-YADDA.
> 05 OOF PIC X(9).
> 05 FILLER PIC X(13).
> 01 VOIB.
> 05 FILLER PIC X(12).
> 05 TOBE PIC XX VALUE "is".
> PROCEDURE DIVISION.
> MOVE WIBBLES TO YADDA-YADDA.
> MOVE VOIB TO WIBBLES.
> MOVE OOF TO WIBBLES.
> DISPLAY WIBBLES.
> STOP RUN.
As often seems the case, I feel compelled to respond to myself (too
many years of living alone, I suppose).
First, no disrespect was meant towards chromatic :)
Second, that program might have a bug, depending on which COBOL
compiler you're using. But you knew that.
Buy the book - http://www.oreilly.com/catalog/perlhks/
Perl and CGI - http://users.easystreet.com/ovid/cgi_course/
Personal blog - http://publius-ovidius.livejournal.com/
Tech blog - http://use.perl.org/~Ovid/journal/
More information about the london.pm