メール+URL判定・自動変換機能

関数 validateEmail($email)
{ return eregi("^[_a-z0-9-]+(.[_a-z0-9-]+)*@[a-z0-9-]+(.[a-z0-9-]+) *(.[a-z]{2,3})$", $email);  
}

関数 validateURL($url)
{ return eregi("^((ht|f)tp://)((([a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2, 3}))|(([0-9]{1,3}.){3}([0-9]{1,3})))((/|?)[a-z0-9~# %&'_+=:?.-]*)*)$", $url);  
}

関数 ConvertURLS($text)
{ $text = eregi_replace("((ht|f)tp://www.|www.)([a-z0-9-]+(.[a-z0-9-]+)*(.[a-z ]{2,3})((/|?)[a-z0-9~#%&\/'_+=:?.-]*)*)", "http://www.\3" 、$text);  
    $text = eregi_replace("((ht|f)tp://)((([a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2, 3}))|(([0-9]{1,3}.){3}([0-9]{1,3})))((/|?)[a-z0-9~# %&'_+=:?.-]*)*)", "\0", $text);  
    $text を返します。  
}

関数 ConvertMail($text)
{ $text = eregi_replace("([_a-z0-9-]+(.[_a-z0-9-]+)*@[a-z0-9-]+(.[a-z0-9-] +)*(.[a-z]{2,3}))", "\0", $text);  
    $text を返します。  
}

関数 ConvertAllLinks($text)
{ $text = ConvertURLS($text);  
    $text = ConvertMail($text);  
    $text を返します。  
}
?>  

以上は、Email+URL の判断と自動変換機能であり、側面の内容も含まれており、PHP 教則に関心のある友人の助けになることを望みます。