HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > PHP
Перезагрузить страницу Perl: строковые ф-ции. вопрос
   
Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра

Perl: строковые ф-ции. вопрос
  #1  
Старый 04.05.2007, 18:52
DRON-ANARCHY
Отец порядка
Регистрация: 04.03.2005
Сообщений: 1,007
Провел на форуме:
1204641

Репутация: 412


По умолчанию Perl: строковые ф-ции. вопрос
Есть проблема. Нужно отбиться от ботов...
Они сцуке засерают гостевуху одну. Не мою... но помочь надо)
Вобщем, e-mail фильтруется так:
PHP код:
if ($Form{email}=~tr/\/\\\+=~;<>*|`&$!#()[]{}:'" //) {print_error "Запрещенные символы в email"} 
так вот боты всегда отписываются что они имеют ящик в aol.com
каким образом запретить использование этих ящиков?
Warning: это Perl. На php я и сам бы давно сделал)
 

  #2  
Старый 04.05.2007, 19:28
Digimortal
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796

Репутация: 1095


По умолчанию
ну допиши еще что-нить типа:
print_error 'Боты отокуют!!!' if $Form{email} =~ /aol\.com$/;
Последний раз редактировалось Digimortal; 04.05.2007 в 19:54..
 

  #3  
Старый 04.05.2007, 20:10
DRON-ANARCHY
Отец порядка
Регистрация: 04.03.2005
Сообщений: 1,007
Провел на форуме:
1204641

Репутация: 412


По умолчанию
именно в таком порядке?
или
if ($Form{email} =~ /aol\.com$/) {print_error 'Боты отокуют!!!'}
 

  #4  
Старый 04.05.2007, 20:18
Digimortal
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796

Репутация: 1095


По умолчанию
Цитата:
Сообщение от DRON-ANARCHY  
именно в таком порядке?
или
if ($Form{email} =~ /aol\.com$/) {print_error 'Боты отокуют!!!'}
можно и в таком.. это ж перл )
 

  #5  
Старый 04.05.2007, 20:19
Pridu_ROCK
Новичок
Регистрация: 11.04.2005
Сообщений: 23
Провел на форуме:
90656

Репутация: 26
По умолчанию
print "Hello" if ($i==1);
if ($i==1) {print "Hello";}
ента альтернативы друг друга
тоесть и в твоем случае
что print_error 'Боты отокуют!!!' if $Form{email} =~ /aol\.com$/;
if ($Form{email} =~ /aol\.com$/) {print_error 'Боты отокуют!!!'}
одно и тоже
 

  #6  
Старый 04.05.2007, 21:00
DRON-ANARCHY
Отец порядка
Регистрация: 04.03.2005
Сообщений: 1,007
Провел на форуме:
1204641

Репутация: 412


По умолчанию
я уже осознал сей факт. всем спасибо. всем плюсы.
closed By Topicstarter
 
Закрытая тема



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
perl вопрос koi8-r PHP 5 22.04.2006 13:46
Books Perl FRAGNATIC PHP 0 11.08.2005 16:58



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.