Forum Webscript.Ru

Программирование => Perl => Тема начата: lodevar от 21 Мая 2001, 15:17:01

Название: скрипт отлова мата
Отправлено: lodevar от 21 Мая 2001, 15:17:01

Не знаете, есть ли скрипты отлова нецензурных выражений (например в форуме)?

Название: скрипт отлова мата
Отправлено: lodevar от 05 Марта 2001, 12:56:31

А как насчет того, чтоб этот файл открыть, переписать его print\'ами, а потом закрыть?
Типа вот так:

#!/usr/bin/perl
print "Content-Type: text/html

";

open(FIL,"ipdata.txt");
while()
{
  print $_."
";
}
close(FIL);

Название: скрипт отлова мата
Отправлено: Syrius от 05 Марта 2001, 15:42:56

Все правильно конечно, но хотелось бы еще узнать, как выбрать именно тот файл который нужен.

Название: скрипт отлова мата
Отправлено: Sonic от 05 Марта 2001, 16:11:38

#!/usr/bin/perl

if ($ENV{\'REQUEST_METHOD\'} eq "POST")
    {
      read(STDIN, $bufer, $ENV{\'CONTENT_LENGTH\'});
    }
elsif ($ENV{\'REQUEST_METHOD\'} eq "GET")
    {
      $bufer=$ENV{\'QUERY_STRING\'};
    }
else {
    print "Произошла ошибка"
;
}
#Это смотря каким методом ты передаёшь ифнормацию о файле

$ipdata=$FORM{ipdata};

print "Content-Type: text/html

";

open(FIL,"$ipdata.txt");
while()
{
print $_."
";
}
close(FIL);


По-моему так. Если ошибся, то поправят...

Название: скрипт отлова мата
Отправлено: Chs от 06 Марта 2001, 00:28:44

Ошибся, но не поправят.:)
Не пойман - не баг.:)

Название: скрипт отлова мата
Отправлено: lodevar от 06 Марта 2001, 09:04:58

Цитировать

Syrius (05-03-2001 15:42):
Все правильно конечно, но хотелось бы еще узнать, как выбрать именно тот файл который нужен.

Ну как? Устраивают предложения или нет? Ежели нет - пиши что конкретно надо, мы будем думать... :-)

Название: скрипт отлова мата
Отправлено: Syrius от 06 Марта 2001, 10:23:24

Цитировать

lodevar (06-03-2001 09:06):

Цитировать

Syrius (05-03-2001 15:42):
Все правильно конечно, но хотелось бы еще узнать, как выбрать именно тот файл который нужен.

Ну как? Устраивают предложения или нет? Ежели нет - пиши что конкретно надо, мы будем думать... :-)

Чичас проверю. Если работает, пиво с меня :-)

Название: скрипт отлова мата
Отправлено: Syrius от 07 Марта 2001, 09:52:30

Никак не пойму в чем дело :-(
Постоянно вылазиет 500-я

Название: скрипт отлова мата
Отправлено: AliMamed от 07 Марта 2001, 15:38:40

Цитировать

Syrius (07-03-2001 09:52):
Никак не пойму в чем дело :-(
Постоянно вылазиет 500-я

print "Content-Type: text/html

";

наверх перенеси

Название: скрипт отлова мата
Отправлено: Sonic от 07 Марта 2001, 15:54:20

Уупс, вот так прально и не даёт ошибку:

#!/usr/bin/perl
if ($ENV{\'REQUEST_METHOD\'} eq "POST")
{
read(STDIN, $bufer, $ENV{\'CONTENT_LENGTH\'});
}
elsif ($ENV{\'REQUEST_METHOD\'} eq "GET")
{
$bufer=$ENV{\'QUERY_STRING\'};
}
else {
print "Произошла ошибка
";
}

$ipdata=$FORM{ipdata};

print "Content-Type: text/html

";

open(FIL,"$ipdata.txt");
while()
{
print $_."
";
}
close(FIL);