Hi,
Have a look at Abigail's Regexp::Common on CPAN. That wheel has been invented. ;)
Best,
Damon
LRMK wrote:
I am using following code to validate e-mail addresses
if ($mail =~ m/^(\w+(\.|-))*\w+\@(\w+(\.|-)*)+\w+$/){
valid
}else{
invalid
}
-- Damon Allen Davison http://www.allolex.net
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
