Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

excluding free email

Dec 29, 1999, 3:14 AM
fair
Novice (38 posts)
Dec 29, 1999, 3:14 AM
Post #1 of 3
Views: 2671
Shortcut
Quote Reply
excluding free email
would anybody care to share some code for excluding free email address from signing up to a newsletter.

example: i'd like to exclude all yahoo.com and usa.net email addresses from being able to join.

thanks in advance Wink
Dec 29, 1999, 5:33 AM
GClemmons
User / Moderator (314 posts)
Dec 29, 1999, 5:33 AM
Post #2 of 3
Views: 2516
Shortcut
Quote Reply
Re: excluding free email In reply to
You could try something like this:
Code:
my $email = param("email"); # This being the user's submitted email address

$illegal_addies = ':yahoo.com:usa.net:hotmail.com:';
($user,$mail_server) = split(/\@/, $email);
$illegal_addies =~ /:${mail_server}:/i ? print "Bad Address.\n" : print "Valid Address\n";

-- Gordon --


------------------
$blah='82:84:70:77';
print chr($_) foreach (split/:/,$blah);

Dec 30, 1999, 12:45 AM
fair
Novice (38 posts)
Dec 30, 1999, 12:45 AM
Post #3 of 3
Views: 2510
Shortcut
Quote Reply
Re: excluding free email In reply to
thx, i'll give it a try Wink