Trying to catch invalid emails

[Samik R.]

Hello,
I use the following regular expression to catch typical invalid email
addresses:
------------
my @Email=("sam._\@abc.org", "sam_.\@abc.org", "sam_.\@abc.org");
foreach (@Email)
{

if(/^[A-z0-9]+([_\.][A-z0-9\-]+)*[@][A-z0-9_\-]+([.][A-z0-9_\-]+)?\.[A-z]{2,3}$/)
{ print "$_ is a valid email id\n"; }
else
{ print "$_ is an invalid email id\n"; }
}
-------------

This expression does not catch the above 3 emails in the array (the
program says that they are valid emails).

Can someone help me to discard these three?
Thanks.

 

[Ron Bergin]

Hello,
I use the following regular expression to catch typical invalid email
addresses:
------------
my @Email=("sam._\@abc.org", "sam_.\@abc.org", "sam_.\@abc.org");
foreach (@Email)
{

if(/^[A-z0-9]+([_\.][A-z0-9\-]+)*[@][A-z0-9_\-]+([.][A-z0-9_\-]+)?\.[A-z]{2,3}$/)
{ print "$_ is a valid email id\n"; }
else
{ print "$_ is an invalid email id\n"; }}

-------------

This expression does not catch the above 3 emails in the array (the
program says that they are valid emails).

Can someone help me to discard these three?
Thanks.

Try using the Email::Valid module.

use strict;
use warnings;
use Email::Valid;

my @Email=("sam._\@abc.org", "sam_.\@abc.org", "sam_.\@abc.org");

foreach my $address (@Email)
{
print Email::Valid->address($address) ? "$address valid\n" :
"$address not valid\n";
}

 

[Ben Morrow]

Hello,
I use the following regular expression to catch typical invalid email
addresses:

Don't do that. Use a module, such as Email::Valid, that actually gets it
right.

Ben

 

[Ben Bullock]

if(/^[A-z0-9]+([_\.][A-z0-9\-]+)* ...

The problem is A-z here, A-z contains all of

ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz

so it matches the underscore in the email address.

To match only letters, you should use [A-Za-z0-9] instead.

 

[Gordon Etly]

_
Frank Seitz ([email protected]) wrote on VCCCLXIII September
MCMXCIII in <URL:;; Abigail wrote:
;; > _
;; > Samik R. ([email protected]) wrote on VCCCLXIII September
:: > MCMXCIII in ;; > <URL:;; > Hello,
;; > I use the following regular expression to catch typical
:: > invalid email ;; > addresses:
;; > ------------
;; > my @Email=("sam._\@abc.org", "sam_.\@abc.org",
;; > "sam_.\@abc.org"); ;; > foreach (@Email)
;; > {
;; >
;; >
;; >
if(/^[A-z0-9]+([_\.][A-z0-9\-]+)*[@][A-z0-9_\-]+([.][A-z0-9_\-]+)?\.[A-z]{2,3}$/)
;; > { print "$_ is a valid email id\n"; } ;; > else
;; > { print "$_ is an invalid email id\n"; }
;; > }
;; > -------------
;; >
;; > This expression does not catch the above 3 emails in the
;; > array (the ;; > program says that they are valid emails).
;; >
;; > Can someone help me to discard these three?
;; >
;; > Sure.
;; >
;; > if (/_/) {
;; > print "$_ is invalid";
;; > }
;; > else {
;; > print "$_ is valid";
;; > }
;;
;; An e-mail address with _ (or ._ or _.) isn't invalid, AFAIK.


But that wasn't what he asked.

He wanted to filter out three particular email addresses.

Oh please, you know as well as most everyone else those were just
samples. In any case, flagging an email as invalid for having an
underscore ( /_/ ) is plain wrong, and portraying it as a solution is
disingenuous to the OP as well as anyone who comes by this in the
archives.