Re: Perl Question

[Tighe <emry@accessus.net>]

>> >&sorry('be') unless ($form{'EMAIL'} =~ /[\w\.-]+\@[\w\.-]+\.[\w\.-]+/);

s/\w[-.]+\@\w[-.]+\.[-.]+/

This should match a single line alphanumeric and - within a context of
foo@bar.com.  If you want to include some matching that will remove the
chance of taint you might want to look into \Q and \E.  That is about all
that I am remember without reading the docs.  Did you read the Perl Regexp
man page (man perlre)?

Tighe

-- 
Tighe Schlottog		Sys Admin at large	  /emry\"@"/accessus.net\
                             ook ook

-
To unsubscribe, send email to majordomo@silug.org with
"unsubscribe silug-discuss" in the body.