Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Perl: строковые ф-ции. вопрос (https://forum.antichat.xyz/showthread.php?t=39503)

DRON-ANARCHY 04.05.2007 18:52

Perl: строковые ф-ции. вопрос
 
Есть проблема. Нужно отбиться от ботов...
Они сцуке засерают гостевуху одну. Не мою... но помочь надо)
Вобщем, e-mail фильтруется так:
PHP код:

if ($Form{email}=~tr/\/\\\+=~;<>*|`&$!#()[]{}:'" //) {print_error "Запрещенные символы в email"} 

так вот боты всегда отписываются что они имеют ящик в aol.com
каким образом запретить использование этих ящиков?
Warning: это Perl. На php я и сам бы давно сделал)

Digimortal 04.05.2007 19:28

ну допиши еще что-нить типа:
print_error 'Боты отокуют!!!' if $Form{email} =~ /aol\.com$/;

DRON-ANARCHY 04.05.2007 20:10

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

Digimortal 04.05.2007 20:18

Цитата:

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

можно и в таком.. это ж перл )

Pridu_ROCK 04.05.2007 20:19

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

DRON-ANARCHY 04.05.2007 21:00

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


Время: 05:16