Re^2: RegExp, grabbing first name

Try this see if it will work.

#!/usr/bin/perl

use strict;
use warnings;

#my $mystring = "SMITH, A DOE";
my $mystring  = "BULLOCK JOE A";

my @array= $mystring =~ m/^[A-Z, ]+([A-Z]{3,}).*?$/;

print"$array[0]\n";
[download]

Comment on Re^2: RegExp, grabbing first name Download Code

Replies are listed 'Best First'.
Re^3: RegExp, grabbing first name by Maresia (Beadle) on Feb 25, 2016 at 21:14 UTC
Could this one work? `if ($string =~ /(\w{3,})$/ ) { print "\n\$1\n"; }elsif( $string =~ /(\w+)\s(\w{1,2})$/ ) { #}elsif( $string =~ /(\w{1})\s(\w+)\s(\w{1,2})$/) { # or this one usin +g $2 print "\n$1\n"; }` [download]	[reply] [d/l]
Re^3: RegExp, grabbing first name by Anonymous Monk on Feb 25, 2016 at 21:12 UTC
It doesn't work: `my $string = "BULLOCK MICHAEL A"; $string = ($string =~ m/^[A-Z, ]+([A-Z]{3,}).*?$/) ? $1 : ''; print AEL;` [download]	[reply] [d/l]