Re: Stumped by regex

Well, you have a lot of replies, and I think they all fail your spec. ... well done :).

This is probably what I would do...

sub surname
{  # Assumes ASCII locale
   $_ = shift;

   return undef if (length($_) > 20);

   return $_ if /^([a-zA-Z]+)$/; # Surname is only one
   return $_ if /^[a-zA-Z]+ ([a-zA-Z]+)$/; # Surname only

   return undef;
}
[download]

--
And-httpd, $2,000 security guarantee
James Antill

Comment on Re: Stumped by regex Download Code

Replies are listed 'Best First'.
Re^2: Stumped by regex by brickwall (Acolyte) on Dec 06, 2006 at 18:10 UTC
Thanx for all the replies guys. Although some of them dont quite do it. In the end i figured out that the following will do the job (with the addition of some varification error messages for the user), and then check for length with an "if". Thanx guys `m/^[a-zA-Z]+\s?[a-zA-Z]*$/` [download]	[reply] [d/l]

In Section Seekers of Perl Wisdom