Проверка на валидность email

[Striker]

Я уже искал.. искал.... возможно, плохо искал. сейчас у меня вот такая проверка:

\\w+@[a-zA-Z0-9]+\\.[a-zA-Z]+


Но она позволяет писать пробелы, собачки и разные недопустимые символы в имени и в имени сервера.

Надо чтобы можно было писать латинские символы, цифры, точки и подчеркивание в имени

а в имени сервера то же самое, кроме знакак подчеркивания.

буду очень благодарен!!!!!!!!

 

[v0rbis]

function email_valid(cValue)
{
  return cValue.match(/^[a-zA-Z0-9_\-]+[a-zA-Z.\-]*@[a-zA-Z0-9_\.]+[.\-]+[a-zA-Z]+$/);
}

что-то типа этого.

 

[Ivan]

На perl с этим попроще.
Я обычно юзаю уже готовый модуль проврки из CPAN:

use Mail::CheckUser qw(check_email);
$Mail::CheckUser::Skip_SMTP_Checks = 1;
$Mail::CheckUser::Skip_Network_Checks = 1;

print check_email('any_mail@domain.com') ? 'валидный' : 'не валидный';

Если флаги
$Mail::CheckUser::Skip_SMTP_Checks = 1;
$Mail::CheckUser::Skip_Network_Checks = 1;
не поднимать, то будет доп проверка на существование майла в его домене.
Если поднять, то проверка, естесно, быстрее, но только по регекспу соотв rfc