";
print "";
print '';
// regex get
print "S::GETEMAILREGEX(0): ".Email::getEmailRegex(0)."
";
print "S::GETEMAILREGEX(2): ".Email::getEmailRegex(2)."
";
print "S::GETEMAILREGEX(7): ".Email::getEmailRegex(7)."
";
print "S::GETEMAILREGEX(8 invalid): ".Email::getEmailRegex(8)."
";
print "S::GETEMAILREGEXCHECK: ".$basic->printAr(Email::getEmailRegexCheck())."
";
$email = [
'foo@bar.org',
'foo@i.softbank.ne.jp'
];
foreach ($email as $s_email) {
print "S::EMAIL: $s_email: ".Email::getEmailType($s_email)."
";
print "S::EMAIL SHORT: $s_email: ".Email::getEmailType($s_email, true)."
";
}
// DEPRECATED
/* foreach ($email as $s_email) {
print "D/S-EMAIL: $s_email: ".$basic->getEmailType($s_email)."
";
print "D/S-EMAIL SHORT: $s_email: ".$basic->getEmailType($s_email, true)."
";
} */
// error message
print $basic->printErrorMsg();
print "";
// __END__