Re: Extract number from character field(Perl syntax)

Just proves to me that you can write "bad" code in any language.  Obtuse is
obtuse.

Now that we have such good keyword support, why can't we replace
(optionally, of course) all fixed column positions with key words?  It works
great on the H-spec.

Why couldn't the F - spec look like:

F Filename(Master) RecordLength(100) Keylength(7)      etc. etc.

Instead of of haggling over it for the next 10 years, just go ahead and bite
the bullet once and be done with it.  Give us a keyword alternative for
every column of every spec and then those who enjoy crytography can continue
to use the columnar format and those who want "self-documenting" can use the
keywords.  Something for everyone.

-----Original Message-----
From: boldt@ca.ibm.com <boldt@ca.ibm.com>
To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Monday, November 08, 1999 3:34 PM
Subject: RE: Extract number from character field(Perl syntax)


>
>
>Hi Joel:  No offense taken.
>
>Look, when someone unfamiliar with RPG sees something like:
>
>     fnndbf01   if   f  100    10aidisk
>     inndbf01   ns
>     i                                  1   10  dbcustno
>     i                                 11   40  dbname
>
>what's he gonna think?  Clear as a bell?
>
>You think you can write concise programs in RPG?  Well, in
>the Perl world, they play a game called "golf":  Try to
>write a Perl program using as few key strokes as possible.
>
>Cheers!  Hans
>
>
>Joel wrote:
>>No offense, Hans, but what does this say about the "typical Perl
>>programmer?"
>>
>>>
>>> >>
>>> >>      @nums = $str =~ /\d+/g;
>>> >
>>       /*          Snip                                */
>>>
>>> Believe it or not, that code is clear as a bell to a
>>> typical Perl programmer!
>
>Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com
>
>
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
>| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
>| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---