Программирование > Perl

скрипт отлова мата

(1/2) > >>

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

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

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

";

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

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

Sonic:
#!/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:
Ошибся, но не поправят.:)
Не пойман - не баг.:)

Навигация

[0] Главная страница сообщений

[#] Следующая страница