|
|
|
новичок
участник
Last Login: 18.03.2006 14:54
Сообщ.: 8,
Visits: 89
|
|
Добрый день. Люди, помогите.
Столкнулся с такой проблемой: надо из регистрационной формы по нажатию на кнопку записать данные в файл. Написал скрипт, вроде все правильно, но не работает :(
Скрипт загружается
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; <script language=JavaScript>
<!--
|
|
|
|
|
Supreme Being
участник
Last Login: 13.07.2006 17:05
Сообщ.: 124,
Visits: 1 356
|
|
|
|
|
|
новичок
участник
Last Login: 18.03.2006 14:54
Сообщ.: 8,
Visits: 89
|
|
Я пробовал его устанавливать, но у меня не получилось.
Для отладки скриптов пользуюсь я Денвером.
|
|
|
|
|
Supreme Being
участник
Last Login: 13.07.2006 17:05
Сообщ.: 124,
Visits: 1 356
|
|
Да его не надо устанавливать - он уже в пакете денвер идет в поставке. Да и вообще он давно уже включен в стандартный дистрибутив perl (в том чисе денвер)
PerlMonks.Org.Ru.... coming soon
|
|
|
|
|
Supreme Being
участник
Last Login: 30.06.2007 15:09
Сообщ.: 100,
Visits: 1 091
|
|
| Было похожее. У формы добавить атрибут: enctype="multipart/form-data"
|
|
|
|