@DemonP

Добрый день. Люди, помогите.
Столкнулся с такой проблемой: надо из регистрационной формы по нажатию на кнопку записать данные в файл. Написал скрипт, вроде все правильно, но не работает
Скрипт загружается
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>
<!--

Вернуться к обсуждению:
Надо из регистрационной формы по нажатию на кнопку записать данные в файл

0