Yo le pondría algo más restrictiva la Reg_Exp de Cluster, algo así valdría:
Código:
$res = ereg(
'^(a-z0-9_]|\\-|\\.)+'.
'@'.
'(([a-z0-9_]|\\-)+\\.)+'.
'[a-z]{2,4}$',
$email);
Es parecida pero NO es exactamente igual, en este caso no puede haber mayúsculas ya que no están permitidas en los nombres de dominio y tampoco en los usuarios. Se le añade la restricción de que tiene que empezar ( ^ ) y acabar ( $ ) dentro del patrón. Y se le añade el caracter - en los nombres de dominio y en los usuarios.
Salu2.Ferdy
<hr />
Usuario registrado de Linux #241564
<a href="http://www.ferdyx.org">
FerdyX.org</a> -
Web Open Source