Автор Тема: Обработка CGI-скриптом данных формы  (Прочитано 2893 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Ryhen

  • Губернский секретарь
  • **
  • Сообщений: 27
  • Репутация: 0
  • Пол: Мужской
Написал скрипт, но браузер результат не отображает.. почему-то:

#!/usr/bin/perl -w
use CGI qw(:all);
use strict;
print header;

my $ds="data_student.txt";

sub save
{
 open(DSIS, ">>$ds") || die "Невозможно записать в файл: $!";
 print DSIS "Вас зовут ", param('Familija'), " ", param('Imja'), " ", param('Otchestvo'), ".\n";
 print DSIS "Вы поступили в университет в ", param('God_postuplenija'), "-ом году", ".\n";
 print DSIS "Родились в ", param('God_rojdenija'), "-ом году", ".\n";
 print DSIS "Номер вашей группы ", param('Nomer_gruppi'), ".\n";
 close(DSIS);
}

sub display
{
 open(DSIS, $ds) || die "Невозможно открыть файл: $!";
 while(<DSIS>)
 {
  print "$_";
 }
 close(DSIS);
}


save();
display();

Если не пытаться записать в файл и считать с него, а напрямую выводить в браузер, то работает...так:

#!/usr/bin/perl -w
use CGI qw(:all);
use strict;
print header;

sub display
{
 print "Вас зовут ", param('Familija'), " ", param('Imja'), " ", param('Otchestvo'), ".\n";
 print "Вы поступили в университет в ", param('God_postuplenija'), "-ом году", ".\n";
 print "Родились в ", param('God_rojdenija'), "-ом году", ".\n";
 print "Номер вашей группы ", param('Nomer_gruppi'), ".\n";
}

display();

Оффлайн Ryhen

  • Губернский секретарь
  • **
  • Сообщений: 27
  • Репутация: 0
  • Пол: Мужской
Re: Обработка CGI-скриптом данных формы
« Ответ #1 : јРав 13, 2008, 06:27:50 am »
Эмс...никто не помогает =) Да и не нужно..разобрался: поставить надо было на текстовый файл права на запись..

Оффлайн Ryhen

  • Губернский секретарь
  • **
  • Сообщений: 27
  • Репутация: 0
  • Пол: Мужской
Re: Обработка CGI-скриптом данных формы
« Ответ #2 : јРав 14, 2008, 01:34:34 pm »
Может кто-нибудь поможет...нужно два скрипта для обработки данных формы методом GET и методом POST.....нельзя использовать встроенные функции (типо param)....там что-то через переменные окружения..    ЗЫ: препод дура!!  :dash2: