Perl: строковые ф-ции. вопрос

[DRON-ANARCHY]

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

[Digimortal]

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

[DRON-ANARCHY]

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

[Digimortal]

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

[Pridu_ROCK]

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]

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