メールアドレスが正しいかを判定するモジュール - memo.xight.org

Email::Valid #!/usr/bin/perl use Email::Valid; print (Email::Valid->address('user@example.com') ? 'yes' : 'no'); Mail::CheckUser #!/usr/bin/perl use Mail::CheckUser qw(check_email last_check); my $email = 'user@example.com'; if(check_email($email)) { print "E-mail address <$email> is OK\n"; } else { print "E-mail address <$email> isn't valid: ", last_check()->{reason}, "\n"; } Data::Validate::Emai

[bm0329]

[メールアドレス] [vlidate]