Flash и Perl

[Dwarf]

Содержание CGI:

$buffer = $ENV{'QUERY_STRING'};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
//Для получения данных из Флеша!..

open(temp, "temp.tmp") //Файл куда сохранять данные..
print temp "var1=$FORM{'var1'}&var2=$FORM{'var2'}"; //код сохранения переменной из Флеша в файл в формате Флеша..
close temp;

код для Флеша:
_root.var1 = "Hallo";
_root.var2 = "Bye Bye"; //Твои переменные, которые надо сохранить...

loadVariables("../cgi-bin/you_cgi.pl", "_root", "POST");

Все!

[2K WebStudio]

Dwarf:
Объясни всё по порядку!
Я почти ничего не понял!

[Dwarf]

Сначала начни учить ПЕРЛ!...

Что касается Флеша то:
ты просто отправляешь значения переменных, находящихся в руте скрипту не открывая нового окна, используя метод POST.

[2K WebStudio]

А как ты предлагаешь вытаскивать информацию из перла обратно во флэшь?
Не понимаю!!!
Объясни, что делает перл в твоём скрипте!

[Dwarf]

той же самой loadVariables можно и получать (синтаксис тот же!) только в cgi последней строкой должно идти:
print "var1=$var1&var2=$var2..."
где var1 и var2 - имена переменных передаваемых перлу, а
$var1 и $var2 - переменные Перла значения которых подставяться в значения Флешевских переменных!

А дальше во Флеше ты с ними работаешь как обычно, только относительные пути не приемлены только абсолютны типа
_root.var1 если ты грузил переменные в _root (синтаксис такой: loadVariables("путь к скрипту", _root, "Post")!!!