RE: Extract number from character field(Perl syntax)

[boldt@xxxxxxxxxx]

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