I'm using an older version of Mail::BulkMail that contains a regex to
validate an e-mail address. Problem is that it only excepts 2 or 3
letters after the last dot. Nowadays we have new stuff like [EMAIL PROTECTED]
that doesn't pass this regex.
return $1 if $email =~ m
^\s*($word #any
Huub Peters wrote:
I'm using an older version of Mail::BulkMail that contains a regex to
validate an e-mail address. Problem is that it only excepts 2 or 3
letters after the last dot. Nowadays we have new stuff like [EMAIL PROTECTED]
that doesn't pass this regex.
return $1 if $email =~ m
I guess
\.[a-zA-Z]{2-4})\s*$
is the answer, not tested
regards
Friedel Wittrock
-Ursprüngliche Nachricht-
Von: Huub Peters [mailto:[EMAIL PROTECTED]
Gesendet: Donnerstag, 6. November 2003 09:42
An: [EMAIL PROTECTED]
Betreff: Regex in Mail::BulkMail
I'm using an older version
,
Huub
- Original Message -
From: Huub Peters [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Thursday, November 06, 2003 9:41 AM
Subject: Regex in Mail::BulkMail
I'm using an older version of Mail::BulkMail that contains a regex to
validate an e-mail address. Problem is that it only excepts
sorry,
\.[a-zA-Z]{2-4})\s*$
is wrong,
\.[a-zA-Z]{2,4})\s*$
is ok.
regards
Friedel Wittrock
-Ursprüngliche Nachricht-
Von: Huub Peters [mailto:[EMAIL PROTECTED]
Gesendet: Donnerstag, 6. November 2003 09:42
An: [EMAIL PROTECTED]
Betreff: Regex in Mail::BulkMail
I'm using an older