At 03:35 PM 2/19/2002 -0800, Randal L. Schwartz wrote:
> >>>>> "Roger" == Roger Morris <[EMAIL PROTECTED]> writes:
>
>Roger> I've been working on email validation for a script. The examples I've
>Roger> seen haven't exactly done that great of a job. I've taken the code
>Roger> and messed with it some.
>
>But not enough. :)
>
>Roger> sub valid_email ()
>Roger> {
>Roger> if ($e_address =~ /^\w+(\.\w+){0,}\@\w+(\.\w+){1,}$/i)
>
>That ignores <fred&[EMAIL PROTECTED]>, a valid and active email
>address. (Try it! It's an autoresponder!)
>
>It permits <[EMAIL PROTECTED]>, an invalid email address.
>
>Definitely wanna look at those other modules.
I hadn't found that module when I was searching the net. the
Email::Valid doesn't catch the @this_host.com It also doesn't catch |
in the email, which I would've thought shouldn't be permitted.
I'll keep digging.
Roger
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
