>>>>> "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.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
