Помогите моей Гостевой Книги избавиться от спама!
Добавил в скрипт вот такую конструкцию:
*********************
open ( CENSOR, "censor.txt" ); # Файл содержит список рекламных слов или префиксов.
@censor_word=<CENSOR>;
close (CENSOR);

foreach (@censor_word)
{
chomp($_);
# переменная $text содержит сообщение посылаемое пользователем
if ($text =~ m/$_/i){
print "Спам!";
exit;
}
*************************
Мне нужно, чтобы поиск слов проводился без учета регистра, но в моем случае i-поиск без учета регистра не срабатывает. Что я неправельно делаю?
Или может кто нибудь предложит более оптимальный вариант для поиска рекламных слов в сообщении (сравнительный анализ)

Большое спасибо!

наверно он не находит только слова содержащие кириллицу ?
так же следует добавить модификатор g, s, для полного поиска/


Это сообщение отредактировал(а) BlackLFL - 13.3.2006, 15:57

use locale; use POSIX qw(locale_h); setlocale(LC_CTYPE,"ru_RU.CP1251"); вызывает ошибку Internal Server Error

Ваша операционая система понимает данную кодировку?

perldoc locale
perldoc perllocale

Это сообщение отредактировал(а) BlackLFL - 13.3.2006, 16:52

А нельзя ли обойтись без use locale; ?
У меня модули не подключаются

данные модули являются стандартными для Perl...

p.s. какая операционная система? версия Perl?

PERL version 5.8.3
Operating system Linux
Добавлено @ 17:29
BlackLFL, спасибо за помощь!
Выгрузил на сервер все работает
Я на локальном сервере тестировал (Windows), может быть поэтому use locale; ошибку вызывал

под WIndows рекомендую использовать Денвер
p.s всегда пожалуйста, обращайтесь

Это сообщение отредактировал(а) BlackLFL - 13.3.2006, 17:35

А я ведь как раз денвером и пользуюсь
Денвер-2 2004-01-04

странно, почему ошибка была, установите полсдению версию + Денвер - Пакет расширения - ActivePerl

Денвер- отличная штука, вот только редактор Perl бы еще хороший, пользуюсь Absolute Perl 0.9 beta 2 - тормозит.
Может что посоветуешь?

я использую HomeSite
Решает множество проблем, если программирование ведеться под WEB.
Его можно интегрировать с интерпритатор Perl, если программируешь под консоль.

Komodo, очень удобно использовать Rx Toolkit ( утилита для регулярных выражений )

C пакетом расширений - ActivePerl работает
Спасибо, попробую HomeSite

Dimoon, вот на этой странице можно найти всевозможные дистрибутивы и редакторы для любых ОС.
Я лично использую SciTe - очень легкий, гибкий, отличная подсветка синтаксиса!
Но для новичков лучше использовать IDE - например, Komodo, OptiPerl или DzPerl.

оффтоп ;)
htmlmaster - Win
mcedit - *nix