Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^4: Perl Regex to take the UC Words.

by hdb (Prior)
on Mar 28, 2013 at 15:16 UTC ( #1025974=note: print w/ replies, xml ) Need Help??


in reply to Re^3: Perl Regex to take the UC Words.
in thread Perl Regex to take the UC Words.

What about capitalized words later in the line? Shall they be excluded?

use strict; use warnings; while(<DATA>) { my @array = $_ =~ m/\b([a-zA-Z]+[0-9]*)\b/g; foreach (@array) { last if /[a-z]/; print "$_ "; } print "\n"; } __DATA__ BROUGHTON VETERINARY GROUP123. Leicestershire mixed practice seek EXPE +RIENCED vet to replace assistant relocating to Scotland GIRLING AND BOWDITCH VETERINARY SURGEONS We are looking for an experie +nced vet for our 5 vet mixed practice. STANHOPE PARK VETERINARY HOSPITAL. Due to a pregnancy epidemic we are +looking for 2 new vets, 100% small animal hospital in County Durham.


Comment on Re^4: Perl Regex to take the UC Words.
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1025974]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2015-07-06 04:39 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (70 votes), past polls