Re: Getting email from fields

You can capture the two parts with this regex:

/^(.+?)\s+<?(\S+?)>?$/
[download]

My test:

$ perl -E 'say join " = ", /^(.+?)\s+<?(\S+?)>?$/ for q{My name <email
+@example.com>}, q{My Name email@example.com}'
My name = email@example.com
My Name = email@example.com
[download]

— Ken

Comment on Re: Getting email from fields Select or Download Code

Replies are listed 'Best First'.
Re^2: Getting email from fields by bizactuator (Sexton) on Oct 27, 2017 at 06:22 UTC
awesome, so would I do it like this then: `my ($name,$email) = join " = ", /^(.+?)\s+<?(\S+?)>?$/ for param("emai +l");` [download] like that? That does not look right to me, but I'm a novice. Lol	[reply] [d/l]
Re^3: Getting email from fields by hippo (Archbishop) on Oct 27, 2017 at 08:21 UTC
No, that would give you one problem and one misconception. The problem is that the join will give you one scalar whereas you are assigning to a list (of two scalars). The misconception is that if you have only one scalar value for `param("email")` then the `for` is irrelevant since it is there to loop over all values and you have only one. kcott has included the `for` in his example because he is showing you the results of both input forms. If you want the name and email as separate scalars then just do this: `#!/usr/bin/env perl use strict; use warnings; use utf8; # ... something here which defines param() my $fullmail = param ("email"); my ($name,$email) = ($fullmail =~ /^(.+?)\s+<?(\S+?)>?$/); print "Name is $name, Email is $email, Original is $fullmail\n";` [download]	[reply] [d/l] [select]
Re^4: Getting email from fields by bizactuator (Sexton) on Oct 30, 2017 at 15:24 UTC
That did it. That is what I was looking for. Thank you much. -My best. -Rich	[reply]