on Sat, 10 Aug 2002 07:41:39 GMT, Soheil Shaghaghi wrote:
> The following sub checks for bad e-mail address, and reports it:
[code snipped]
> However, the code is rejecting the domains ending with .info, and
> .name (the reason is that it has 4 digits after the zero)
> Can someone please tell me how to change this code so it works
> please.
Don't try to reinvent the wheel. Use a module
#!/usr/bin/perl -w
use strict;
use Email::Valid;
print Email::Valid->address('[EMAIL PROTECTED]') ? 'yes' : 'no';
--
felix
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
