Here's mine...

Tiffany_M — Wed, 02 Aug 2000 22:40:14 +0000

#----------------------------------------------------------------#
# Check to see if the email address is in valid form
$valid_email = "1";
if ($email =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/ ||
($email !~ /^.+\@localhost$/ &&
$email !~ /^.+\@\[?(\w|[-.])+\.[a-zA-Z]{2,3}|[0-9]{1,3}\]?$/)) {
$valid_email = "0";
}
if ($valid_email eq 1) {&error_msg('Invalid Email Address');
}

HTH
Tiffany

richjb — Wed, 02 Aug 2000 19:09:51 +0000

Thanks.

Richard

roBofh — Tue, 01 Aug 2000 22:17:18 +0000

Use Email::Valid;
Email::Valid->address($email);

perldoc Email::Valid for more info.

-rob

richjb — Mon, 31 Jul 2000 15:26:11 +0000

Rob:

Please post syntax.

Richard

CPAN module

roBofh — Mon, 31 Jul 2000 13:58:56 +0000

Personally, I like using the Email::Valid module since it does a little bit more comprehensive test, and someone else updates it to keep it current

-rob

richjb — Mon, 31 Jul 2000 06:23:15 +0000

This code is for PERL:

unless ($INPUT{'email'} =~ /.*\@.*\..*/) {
 print "invalid email format";
 exit;
}

Hope that helped.

Richard