Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: Help with regEX

by Codon (Friar)
on Sep 14, 2005 at 16:57 UTC ( #491927=note: print w/replies, xml ) Need Help??


in reply to Help with regEX

Get rid of that substitution:
my ($digits) = $var =~ /([0-9]+)/;
And then you can use the "digit" metacharacter \d:
my ($digits) = $var =~ /(\d+)/;
For your learning pleasure: the reason your original regex failed is you were getting all characters that were not a lower-case letter in a greedy fasion. That sucked up the entire string with your first atom. There were no digits left to match. Might I suggest Mastering Regular Expressions for much more information.

Ivan Heffner
Sr. Software Engineer, DAS Lead
WhitePages.com, Inc.