Kto Nibud' Pomogite!!!

[xfiles]

kak s flash peredat' dopustim peremennuu "a" w perl?
i kakoy nada perl script?

[F_Flash]

1. Смотря что ты хочешь от pl -ки получить
если тоже какие-то переменные.
то для метода Get
a=value;
loadVariables("/cgi-bin/my.pl?a=" add a);

или для метода POST
a=value;
loadVariables("/cgi-bin/my.pl",,"POST");

А со стороны сервера как обычный параметр ты считываешь....

[xfiles]

kak schitiwaesh? day sam script plz

[F_Flash]

&GetFormInput;
// tvoja peremennaja soderzhitsya v $Field{'a'}

sub GetFormInput {

(*fval) = @_ if @_ ;

local ($buf);
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN,$buf,$ENV{'CONTENT_LENGTH'});
}
else {
$buf=$ENV{'QUERY_STRING'};
}

if ($buf eq "") {
return 0 ;
}
else {
@fval=split(/&/,$buf);
foreach $i (0 .. $#fval){
($name,$val)=split (/=/,$fval[$i],2);
$val=~tr/+/ /;
$val=~ s/%(..)/pack("c",hex($1))/ge;
$name=~tr/+/ /;
$name=~ s/%(..)/pack("c",hex($1))/ge;

if (!defined($field{$name})) {
$field{$name}=$val;
}
else {
$field{$name} .= ",$val";

#if you want multi-selects to goto into an array change to:
#$field{$name} .= "\0$val";
}


}
}
return 1;
}

[xfiles]

thanx :cool: