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

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

<< < (2/2)

lodevar:

--- Цитировать ---Syrius (05-03-2001 15:42):
Все правильно конечно, но хотелось бы еще узнать, как выбрать именно тот файл который нужен.
--- Конец цитаты ---
Ну как? Устраивают предложения или нет? Ежели нет - пиши что конкретно надо, мы будем думать... :-)

Syrius:

--- Цитировать ---lodevar (06-03-2001 09:06):

--- Цитировать ---Syrius (05-03-2001 15:42):
Все правильно конечно, но хотелось бы еще узнать, как выбрать именно тот файл который нужен.
--- Конец цитаты ---
Ну как? Устраивают предложения или нет? Ежели нет - пиши что конкретно надо, мы будем думать... :-)
--- Конец цитаты ---
Чичас проверю. Если работает, пиво с меня :-)

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

AliMamed:

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

print "Content-Type: text/html

";

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

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);

Навигация

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

[*] Предыдущая страница