Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^3: RegExp, grabbing first name

by ExReg (Priest)
on Feb 25, 2016 at 20:07 UTC ( [id://1156136]=note: print w/replies, xml ) Need Help??


in reply to Re^2: RegExp, grabbing first name
in thread RegExp, grabbing first name

You could just as easily do it with an array or list then. Modify the code hippo gave to use an array instead:

#!/usr/bin/env perl use strict; use warnings; my @names = ( 'BULLOCK JOE A', 'SMITH, A DOE', ); for my $fullname (@names) { my ($sname, $fname) = $fullname =~ /([A-Z]{3,})/g; print "Forename $fname extracted from $fullname"; }

There are three assumptions that need to be met: both first and last names must be at least three letters long, the last name must come first, and the middle name must be an initial (or at least less than three letters long. If you cannot meet those conditions, you will have a hard problem.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others learning in the Monastery: (3)
As of 2024-03-29 04:45 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found