It's 6:15 AM in Phoenix, Arizona and I am heading
out for a regular expresso.
Tony
At 02:42 PM 10/2/02 +0200, you wrote:
>Hi,
>
>In my opinion, it's easier with a split :
>
>my $email = (split (';',$str))[0];
>
>If you want to use your regex
>
>$email = $1 if ($str =~ /^(.*?\@.*?\.(\w{3}|\w{2,3}\.\w{2})).*$/);
>
>Marc Desfoss?s
>
>-----Message d'origine-----
>De: Vitaly Sinitsin [mailto:[EMAIL PROTECTED]]
>Date: mercredi 2 octobre 2002 15:23
>�: [EMAIL PROTECTED]
>Objet: regular expression question
>
>
>How can I get the first email address from the following string:
>$str eq '[EMAIL PROTECTED];[EMAIL PROTECTED]';
>
>I've got something like:
>$str =~ /^.*\@.*\.(\w{3}|\w{2,3}\.\w{2})$/
>but it retrieves only second email.
>Thank's.
>
>
>_______________________________________________
>ActivePerl mailing list
>[EMAIL PROTECTED]
>To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>_______________________________________________
>ActivePerl mailing list
>[EMAIL PROTECTED]
>To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
--
even the safest course is fraught with peril
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
