princepawn has asked for the wisdom of the Perl Monks concerning the following question:
use Email::Valid; use strict; sub check { my $o = shift; my $address = shift; print "email $address is "; print ($o->address($address) ? '' : 'not'); print " valid\n"; } my @address = qw( jim@mail.com jim.@mail.com jim.beam@mail.com .jim@mail.com jim-@mail.com -jim@mail.com ); my $ev = Email::Valid->new; check ($ev,$_) for @address;
[tbone@horse1 email-valid]$ perl ev.pl email jim@mail.com is valid email jim.@mail.com is not valid email jim.beam@mail.com is valid email .jim@mail.com is not valid email jim-@mail.com is valid email -jim@mail.com is not valid [tbone@horse1 email-valid]$
|
---|