Пока мне в голову приходит только что-то типа:
Код:
Код: Выделить всё
/^(([a-zA-Z][a-zA-Z0-9\-_\.]*)\@(([a-zA-Z][a-zA-Z0-9\-]*\.)+)([a-zA-Z]{2,4}))$/И какой RFC описывает стандарт на e-mail адреса? А то их так много...
Код: Выделить всё
/^(([a-zA-Z][a-zA-Z0-9\-_\.]*)\@(([a-zA-Z][a-zA-Z0-9\-]*\.)+)([a-zA-Z]{2,4}))$/Код: Выделить всё
sub verify_email {
* *local($emails) = $_[0];
* *if ($emails =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/ ||
* * * *($emails !~ /^.+\@localhost$/ &&
* * * * $emails !~ /^.+\@\[?(\w|[-.])+\.[a-zA-Z]{2,3}|[0-9]{1,3}\]?$/)) {
* * * *return(0);
* *}
* *else {
* * * *return(1);
* *}
}