";
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: " . DgS::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->log->printErrorMsg();
print "";
// __END__