That's utterly and completely wrong with respect to "forbidden characters". For example, it invalidates any email address that has a gatewayed "local part" that contains a foreign (non RFC822) address, or addresses that I use to keep mail from getting scraped. For example, my fund responder is no longer fund@stonehenge.com, but fund*@stonehenge.com, and you've just ruled that address out.
| [reply] |
Thanks Randal for your comments. Can you show me an example of an email address that has a gatewayed local part that contains a foreign (non RFC822) address? I just cannot figure out what that looks like.
| [reply] |
| [reply] [d/l] |
Some code based upon code from Email::Valid::Loose ...
my $esc = '\\\\';
my $period = '\.';
my $space = '\040';
my $open_br = '\[';
my $close_br = '\]';
my $nonASCII = '\x80-\xff';
my $ctrl = '\000-\037';
my $cr_list = '\n\015';
my $qtext = qq/[^$esc$nonASCII$cr_list\"]/; # "
my $dtext = qq/[^$esc$nonASCII$cr_list$open_br$close_br]/;
my $quoted_pair = qq<$esc>.qq<[^$nonASCII]>;
my $atom_char = qq/[^($space)<>\@,;:\".$esc$open_br$close_br$ctrl$no
+nASCII]/;
my $atom = qq<$atom_char+(?!$atom_char)>;
my $quoted_str = qq<\"$qtext*(?:$quoted_pair$qtext*)*\">;
my $word = qq<(?:$atom|$quoted_str)>;
my $domain_ref = $atom;
my $domain_lit = qq<$open_br(?:$dtext|$quoted_pair)*$close_br>;
my $sub_domain = qq<(?:$domain_ref|$domain_lit)>;
my $domain = qq<$sub_domain(?:$period$sub_domain)*>;
my $local_part = qq<$word(?:$word|$period)*>;
my $Addr_spec_re = qr<$local_part\@$domain>;
# Is an address valid?
if ( $address =~ /^$Addr_spec_re$/o ) {
# Yes
}
else {
# No
}
perl -le "print unpack'N', pack'B32', '00000000000000000000001011100110'"
| [reply] [d/l] |