Релиб / Веб-программирование / Perl / Передача данных cgi-формы / Latest Posts

RE: Передача данных cgi-формы

D.O. — Sat, 30 Jun 2007 15:11:22 GMT

Было похожее.

У формы добавить атрибут:

enctype="multipart/form-data"

RE: Передача данных cgi-формы

PoizOn — Tue, 04 Apr 2006 21:17:00 GMT

Да его не надо устанавливать - он уже в пакете денвер идет в поставке. Да и вообще он давно уже включен в стандартный дистрибутив perl (в том чисе денвер)

RE: Передача данных cgi-формы

DemonP — Tue, 04 Apr 2006 15:08:00 GMT

Я пробовал его устанавливать, но у меня не получилось.Для отладки скриптов пользуюсь я Денвером.

RE: Передача данных cgi-формы

PoizOn — Wed, 22 Mar 2006 14:40:00 GMT

Рекомендую присмотреться к модулю CGI.pm.

Передача данных cgi-формы

DemonP — Sun, 05 Mar 2006 19:14:00 GMT

Добрый день. Люди, помогите.
Столкнулся с такой проблемой: надо из регистрационной формы по нажатию на кнопку записать данные в файл. Написал скрипт, вроде все правильно, но не работает :(
Скрипт загружается
1- не по нажатию на кнопку, а сразу после загрузки страницы
2- никакие данные не передаются и в файл записываются только пустые строки.

Вот код скрипта:
#!/usr/bin/perl -w
##!/usr/bin/perl

print "Content-Type: text/html";
$method = $ENV{'REQUEST_METHOD'};
print "$method";

# read data
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});

print "$buffer";

@pairs=split("&",$buffer);
foreach $pair (@pairs)
{
($nam,$value)=split("=",$pair);
$FORM{$nam} = $value;
}
$t=$FORM{'txa'};
$dost=$FORM{'Dostavka'};
$n=$FORM{'Name'};
$f=$FORM{'Family'};
$a=$FORM{'Address'};
$tel=$FORM{'Telephone'};
$e=$FORM{'Email'};

open(FILE,">>shop.dat") || die "Can't open the file!";
print FILE $dost,"|",$a,"|",$f,"|",$n,"|",$e,"|",$tel,"|",$t,"";
close(FILE);

open(FILE,"<STRING.DAT") file!?;<br the open ?Can?t die ||>@data=<FILE>;$ndata=@data;close(FILE);
for ($i=0;$i<$ndata;$i++)
{
chomp($data[$i]);
$st[$i]=$data[$i];
}

#print "";
print "";
print <<END1;