|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ilya Soldatkin 2:5020/400 21 Aug 2000 14:38:13
To : All
Subject : сохранение состояния формы
--------------------------------------------------------------------------------
Hi All,
Пытаюcь сохранить полученные значения из формы в файл. Hо ничего кроме символа
равно в файл не записывается.
use CGI;
#<-- Принимаем входные данные -->
if ($ENV{'REQUEST_METHOD'} eq 'POST')
{
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else
{$buffer = $ENV{"QUERY_STRING"}; }
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$input{$name} = $value;
}
....
$query=new CGI;
$filesave="/home/arc/visualsec/temp/file$$";
if (!open(FSAVE,">$filesave"))
{die "Hе могу открыть $file!\n";};
$query->save(FSAVE);
close FSAVE;
Если убрать строку read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
сохранение будет произведено правильно. Hо данный вариант непреемлим поскольку
в дальнейшем часто используется хеш %input. Чего бы здесь изменить/добавить,
чтобы можно было сохранить в файле полученные значения из формы,и иметь их в
%input.
С уважением,
Илья
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
