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

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

PHP:

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

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

 

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

 

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

 

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

 

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

 

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