Как сохранять переменные из Флэша в cgi скрипт???

[2K WebStudio]

Как сохранять переменные из Флэша в cgi скрипт???
Если можно, пришлите исходничек!!!
Я сам абсолютно не разбираюсь в cgi!!!

[soper]

ну я думаю просто отправить запрос getURL методом get скажем на перл файл, переменнтую парам а прел примет этот гет

$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;
$FORM{$name} = $value;
}

в хеше $FORM{'param'} будет содержаться значение переменной param

пишем в файл

open F,">>data.txt";
print F $FORM{'param'}
close F;

мы записали переменную param в файл data.txt

[2K WebStudio]

Спасибо, но я к великому сожалению пока ещё ничё не смыслю в пёрле, можешь прислать полный исходник и объяснить, как его на сервак положить???

[soper]

Попытаюсь...
Если твой хост не против перл скриптов, положить его просто.
Подключаешься по ftp и кладёшь в папку например cgi-bin
(обычно для cgiшников). Какой-нибудь file.pl содержит
в себе обработку запроса get и запись оного в файл
data.txt.

Твой флешь пошлет (если ты ему правильно укажешь)
запрос типа: http://www.2k-webstudio.ru/cgi-bin/file.pl?param=vasia
твоя переменная param равная значению vasia


_________Далее следует перл файл ни чего не менять___________________________

#!/usr/bin/perl


$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;
$FORM{$name} = $value;
}



open F,">>data.txt";
print F $FORM{'param'}
close F;


________Окончание файла______________________________

твой параметр (переменная) param запишется в файл data.txt
как слово vasia

С уважением SOPER, а увас буду консультироваться по флЭшам.

[2K WebStudio]

Ты, конечно можешь считать меня лаймером, хотя это не так, но у меня не получается разместить скрипт на серваке!!!
HELP!!!!