Anusha Krishna chand wrote: > > How to validate an email id using perl regular expression .........
This should help you.
Rob
use strict;
use warnings;
use Regexp::Common 'Email::Address';
my $email_re = $RE{Email}{Address};
foreach (
'"Anusha Krishna chand" <[EMAIL PROTECTED]>',
'"Rob Dixon" <[EMAIL PROTECTED]>',
'beginners@perl.org') {
print $1, "\n" if /($email_re)/;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
