John Edwards wrote:
>
> You can use the following code...
>
> $email = 'Name LastName <[EMAIL PROTECTED]>';
> $email =~ /<([\w@.]+)>/;
> $email = $1;
> print $email;
What about this valid e-mail address <[EMAIL PROTECTED]>? What if
$1 is set from a previous match and this match fails?
John
"Jonathan E. Paton" wrote:
>
> --- Roman Fordinal <[EMAIL PROTECTED]> wrote:
> >
> > I need to get the email address from string:
> >
> > $email="Name LastName <[EMAIL PROTECTED]>"
> >
> > How do I extract it? [Above converted to English -
> JEP]
>
> ($email = $email ) =~ /\<([^>]+)\>$/;
> -Original Message-
> From: John Edwards [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, February 05, 2002 9:25 AM
> To: 'Jonathan E. Paton'; [EMAIL PROTECTED]
> Subject: RE: select text
>
>
> "Give a man a fish and you feed him for a day.
>
ow how...
John
-Original Message-
From: Jonathan E. Paton [mailto:[EMAIL PROTECTED]]
Sent: 05 February 2002 17:19
To: [EMAIL PROTECTED]
Subject: Re: select text
--- Roman Fordinal <[EMAIL PROTECTED]> wrote:
>
> I need to get the email address from string:
>
> $email
ohn
-Original Message-
From: Roman Fordinal [mailto:[EMAIL PROTECTED]]
Sent: 05 February 2002 17:11
To: [EMAIL PROTECTED]
Subject: select text
i need get e-mail adrees from string
$email="Name LastName <[EMAIL PROTECTED]>"
to
$email="[EMAIL PROTECTED]&q
--- Roman Fordinal <[EMAIL PROTECTED]> wrote:
>
> I need to get the email address from string:
>
> $email="Name LastName <[EMAIL PROTECTED]>"
>
> How do I extract it? [Above converted to English -
JEP]
($email = $email ) =~ /\<([^>]+)\>$/;
Jonathan Paton
___
i need get e-mail adrees from string
$email="Name LastName <[EMAIL PROTECTED]>"
to
$email="[EMAIL PROTECTED]"
why get it :
:
:. s pozdravom
:.. Roman Fordinal
:.. project manager
:.:
:.: WebCom s.r.o. - Internet Advertising Agency
