Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не работает проверка формата адреса почты, mail89% :[email protected] - прокатывает 
V
    Опции темы
SHAmanovi4
Дата 7.12.2006, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 13.9.2006
Где: почти мск

Репутация: нет
Всего: нет
Здрасте. Я наверное, совсем с ума сошел. У меня не пашет элементарная регулярка для проверки правильности адреса почты.

Пишу:
Код

$mail = 'rp +98?:[email protected]';
if ($mail !~ /[a-z0-9.-_]+@[a-z0-9.-_]+\.[a-z]{2,4}/i)    {
     print "\nError in Mail!";
}
else     {
     print "Cooll mail!\n";
}


Выводит, что правильное мыльце... Печально как-то... Подскажите, где ошибка? Как правильно?
PM WWW ICQ   Вверх
Nab
Дата 7.12.2006, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37
может быть вот так стоит smile
/[a-z0-9\.\-_]+@[a-z0-9\.\-_]+\.[a-z]{2,4}/i

А то точка вообщето указывает на любой символ smile
да и дефис бы я экранировал на всяк случай...


--------------------
 Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community 
FREESCO in Ukraine 
PM MAIL   Вверх
SHAmanovi4
Дата 7.12.2006, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 13.9.2006
Где: почти мск

Репутация: нет
Всего: нет
неа. Попробуйте - не пашет... Лично у меня точно... smile 
PM WWW ICQ   Вверх
SHAmanovi4
Дата 7.12.2006, 16:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 63
Регистрация: 13.9.2006
Где: почти мск

Репутация: нет
Всего: нет
Блин! Все. Спасибо. ПРоблема снята.

Код

/^[a-z0-9.-_]+@[a-z0-9.-_]+\.[a-z]{2,4}$/i
PM WWW ICQ   Вверх
Nab
Дата 7.12.2006, 16:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 582
Регистрация: 25.3.2006
Где: Kiev

Репутация: 26
Всего: 37
Ну дык понятно smile

Попробуй в мыле задать недопустимый символ прям рядом с @, с одной или с другой стороны smile

Эт просто ты не указал границ паттерна...

Вот так правильно :
Код

/^[a-z0-9\.\-_]+\@[a-z0-9\.\-_]+\.[a-z]{2,4}$/i


PS: Я и не заметил что опоздал с ответом smile
ну да ладно, главное что я тоже в тему попал smile... 

PSS: SHAmanovi4, закрой плиз тему...

Это сообщение отредактировал(а) Nab - 7.12.2006, 17:19


--------------------
 Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community 
FREESCO in Ukraine 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0512 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.