Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Пример гостевой книги 
:(
    Опции темы
Golden Hands
Дата 6.6.2005, 00:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Золотой
****


Профиль
Группа: Участник Клуба
Сообщений: 2023
Регистрация: 23.1.2005
Где: Екатеринбург

Репутация: нет
Всего: 83
Вот, такой глупый вопросик. Может есть у кого?


--------------------
Мы обречены... но только на победу!
Настанет день, и мы построим новый дом.
Внесем в него тепло, что сохранить сумели,
И воскресим все то, что в нас когда-то умерло... © Тень Света
PM MAIL ICQ   Вверх
Golden Hands
Дата 9.6.2005, 03:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Золотой
****


Профиль
Группа: Участник Клуба
Сообщений: 2023
Регистрация: 23.1.2005
Где: Екатеринбург

Репутация: нет
Всего: 83
Код

<FORM method="post" ACTION="cgi-bin/save.pl">
<INPUT  size=50 name=name type="text">
<INPUT  size=50 name=adress type="text">
<INPUT  size=50 name=email type="text">
<INPUT  size=50 name=telefon type="text">
<INPUT class=input size=50 name=date type="text">
<INPUT  type=submit value="Отправить заявку" >
<INPUT  type="reset" value="Сбросить" ></td>
</form>


Код

#!/usr/bin/perl

sub read_get
{
 if ($ENV{REQUEST_METHOD} eq 'POST'){
  sysread(STDIN, $buffer, $ENV{CONTENT_LENGTH});
 } else{
  $buffer = "$ENV{'QUERY_STRING'}";
 }; 
 @pairs = split(/&/, $buffer);
 foreach $pair (@pairs) 
  {
   ($name, $value) = split(/=/, $pair);
   $name =~ tr/+/ /;
   $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $name =~ s/<!--(.|\n)*-->//g;
   $name =~ s/<([^>]|\n)*>//g;
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/<!--(.|\n)*-->//g;
   $value =~ s/\cM/ /g;
   $value =~ s/\|/ /g;
   $value =~ s/<([^>]|\n)*>//g;
   $value =~ s/"/&quot;/g;
   $value =~ s/\x00/ /g;
   $value =~ s/\.\./\./g;
   $value=~ s/\n/<br>/g;
   $FORM{$name} = $value;
  }

}

read_get();

open($file, ">>log.txt");
print $file $FORM{name};
print $file "\n";
print $file $FORM{adress};
print $file "\n";
print $file $FORM{email};
print $file "\n";
print $file $FORM{telefon};
print $file "\n";
print $file $FORM{date};
print $file "\n";

close($file); print "Content-type:text/html\n\n";


Не работает. Проверял на двух хостингах. Может быть здесь ошибка?


--------------------
Мы обречены... но только на победу!
Настанет день, и мы построим новый дом.
Внесем в него тепло, что сохранить сумели,
И воскресим все то, что в нас когда-то умерло... © Тень Света
PM MAIL ICQ   Вверх
aleksnn
Дата 9.6.2005, 04:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 27.4.2005

Репутация: нет
Всего: 2
Это для первого поста
http://forum.vingrad.ru/index.php?showtopic=43044
PM MAIL   Вверх
korob2001
Дата 9.6.2005, 04:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
Golden Hands - smile где ты это взял??? Я же тебе выслал на мыло.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Golden Hands
Дата 9.6.2005, 10:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Золотой
****


Профиль
Группа: Участник Клуба
Сообщений: 2023
Регистрация: 23.1.2005
Где: Екатеринбург

Репутация: нет
Всего: 83
korob2001, это другая версия smile
А с твоей такая же проблема.
Добавлено @ 10:58
И, кстати, в Блокноте редактировать файл *.pl нельзя?


--------------------
Мы обречены... но только на победу!
Настанет день, и мы построим новый дом.
Внесем в него тепло, что сохранить сумели,
И воскресим все то, что в нас когда-то умерло... © Тень Света
PM MAIL ICQ   Вверх
korob2001
Дата 9.6.2005, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
Цитата

И, кстати, в Блокноте редактировать файл *.pl нельзя?

Можно.
А что за ошибки в логе???

ЗЫ:
Заголовок укажи в начале, в конце от него толку мало.
Код

print "Content-type:text/html\n\n";




--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Golden Hands
Дата 9.6.2005, 23:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Золотой
****


Профиль
Группа: Участник Клуба
Сообщений: 2023
Регистрация: 23.1.2005
Где: Екатеринбург

Репутация: нет
Всего: 83
korob2001, твой пример работает. Проблема была в хосте.

А как сделать просто лог с данными из HTML'овской формы, без заполнения формы в скрипте?


--------------------
Мы обречены... но только на победу!
Настанет день, и мы построим новый дом.
Внесем в него тепло, что сохранить сумели,
И воскресим все то, что в нас когда-то умерло... © Тень Света
PM MAIL ICQ   Вверх
korob2001
Дата 10.6.2005, 22:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
Golden Hands - последний вопрос не понял, поясни подробнее.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Golden Hands
Дата 11.6.2005, 20:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Золотой
****


Профиль
Группа: Участник Клуба
Сообщений: 2023
Регистрация: 23.1.2005
Где: Екатеринбург

Репутация: нет
Всего: 83
korob2001, нужно просто записать значения полей формы в файл.


--------------------
Мы обречены... но только на победу!
Настанет день, и мы построим новый дом.
Внесем в него тепло, что сохранить сумели,
И воскресим все то, что в нас когда-то умерло... © Тень Света
PM MAIL ICQ   Вверх
korob2001
Дата 11.6.2005, 22:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
Так я же тебе уже выслал пример, которы просто записывает значения полей в файл. Или ты говоришь о втором варианте? Если о втором, то просто принимай параметры и затем открывай файл для добавления и добавляй в него те значения, которые получил из формы.

Файл открывай так:
Код

# Допустим следующие переменные нам нужно записать в файл
my $str1 = "Hello";
my $str2 = "world";
# Открываем файл для добавления
open( F, ">> test.txt" ) or die $!;

    # Добавляем строку в файл
    print F "$str1, $str2!\n";

# Закрываем файл
close( F );


Это сообщение отредактировал(а) korob2001 - 16.8.2005, 01:05


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Golden Hands
Дата 13.6.2005, 00:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Золотой
****


Профиль
Группа: Участник Клуба
Сообщений: 2023
Регистрация: 23.1.2005
Где: Екатеринбург

Репутация: нет
Всего: 83
Попробую.


--------------------
Мы обречены... но только на победу!
Настанет день, и мы построим новый дом.
Внесем в него тепло, что сохранить сумели,
И воскресим все то, что в нас когда-то умерло... © Тень Света
PM MAIL ICQ   Вверх
Golden Hands
Дата 13.6.2005, 23:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Золотой
****


Профиль
Группа: Участник Клуба
Сообщений: 2023
Регистрация: 23.1.2005
Где: Екатеринбург

Репутация: нет
Всего: 83
korob2001, спасибо за содействие. smile


--------------------
Мы обречены... но только на победу!
Настанет день, и мы построим новый дом.
Внесем в него тепло, что сохранить сумели,
И воскресим все то, что в нас когда-то умерло... © Тень Света
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0630 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.