PracticeDev/study_perl/validating_email_address.pl

12 lines
208 B
Perl
Executable File

#!/usr/bin/perl
use strict;
use warnings;
use Email::Valid;
my $email_address = 'a@.n@example.com';
unless( Email::Valid->address($email_address) ) {
print "Sorry, that email address is not valid!";
}