навесной фильтр

[Kopper]

Привет вам! Возникла такая проблема: необходимо на простенькую гостевую книгу, висящую на апаче(гостевая книга вся - это html-страничка и принимающий из нее данные cgi-скрипт), поставить фильтр каких-то определенных слов, которые не будут допускать на обработку к скрипту данные из html-формы(скажем не пропускать матные слова). Т.е. грубо говоря нужен навесной фильтр... Подскажите плз вектор развития кто знает =)

[RXL]

Вариантов несколько. Я бы использовал регулярные выражения.

Код: (Perl)

my @words = (); // список слов - заполнить заранее любым способом
my $re;

$re = join('\E|\Q', @words);
if ($re eq '')
{
  // слов в списке нет
}
else
{
  $re = '\b(\Q' . $re . '\E)\b';
  if (m/$re/)
  {
    // слова из списка встречаются
  }
  else
  {
    // таких слов нет
  }
}

Вне зависимости от логики способ составления регулярного выражения можно не менять.

Предупреждаю - код не тестил: жду с минуты на минуту отключения электричества...

[Kopper]

спасибо огромное, введу эту штуку в свою CGI-программу =)!!!

[RXL]

Kopper, также можно замену сделать.

Простую:

Код: (Perl)

# .....

s/$re/***/g;

Словарную:

Код:

%dictionary = (); // список пар "исходное слово" => "замена"
@words = keys %dictionary;

# .......

s/$re/$dictionary{$1}/ge

Еще рекомендую использовать модификатор "i".