[forwarded submission from a non-member address -- rjk]
From: "James Linden Rose, III" <[EMAIL PROTECTED]>
Date: Fri, 8 Mar 2002 11:46:11 -0500
Subject: Email validator
To: [EMAIL PROTECTED]
Hello Boston PM.
How does this do as a rough cut email validity test??? I've used it
for two years without complaint, but I've always wondered if I have
rejected someone's email when in fact their email was valid. After
all, I've used some arbitrary constructs:
sub EmailV {
if (($_[0] !~
/^(\w{1,40}.{0,40}){1}(\w{1,40}|\+)?@\w{1,40}.{0,40}\.\w{2,4}$/) ||
($_[0] =~ /\"|\'|,|\s/)) { return 0; }
else { return 1;}
}
Regards,
Jim
--
The Kanji Way to Japanese Language Power
http://www.rolomail.com/cgi-bin/sanadd.pl?1-0-136
