RE: Extract number from character field(Perl syntax)

[Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>]

No offense, Hans, but what does this say about the "typical Perl
programmer?"

> -----Original Message-----
> From: boldt@ca.ibm.com [mailto:boldt@ca.ibm.com]
> Sent: Monday, November 08, 1999 8:29 AM
> To: MIDRANGE-L@midrange.com
> Subject: RE: Extract number from character field
> 
> 
       /*          Snip                                */
> 
> 
> >>
> >>      @nums = $str =~ /\d+/g;
> >
       /*          Snip                                */
> 
> Believe it or not, that code is clear as a bell to a
> typical Perl programmer!
> 
> Cheers!  Hans
> 
> 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
+---