함수 verify_email($email){
$exp="^[a-z'0-9] ([._-][a-z'0-9] )*@([a-z0-9] ([._-][ a-z0-9] )) $";
if(eregi($exp,$email)){ //먼저 정규식을 사용하여 이메일 형식의 유효성을 확인합니다
if(checkdnsrr(array_pop(explode("@",$email)),"MX")){//checkdnsrr을 사용하여 이메일의 도메인 이름 부분의 유효성을 확인하세요
true를 반환합니다.
}그 외{
false를 반환합니다.
}
}그 외{
false를 반환합니다.
}
}
참고: checkdnsrr 함수는 win 호스트에서 유효하지 않습니다! 다음은 외국 프로그래머가 제안한 솔루션입니다. checkdnsrr 함수를 대체하기 위해 작성된 것입니다.
함수 myCheckDNSRR($hostName, $recType=''){
if(!emptyempty($hostName)){
if( $recType=='' ) $recType="MX";
exec("nslookup -type=$recType $hostName", $result);
foreach($result를 $line으로){
if(eregi("^$hostName",$line)){
true를 반환합니다.
}
}
false를 반환합니다.
}
false를 반환합니다.
}