...пользовал такую подпрограмму... взял с какого то руководства по Перл...
Код:
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);
* *}
}
...пояснения нужны???
