Проблема такая, как правильно на перле упаковать данные для отправки флеш клиенту? На приеме от флеша идет бинарная строка (с расшифровкой нет проблем), не у верен, но думаю, что и обратно флешу нужно передавать бинарную строчку. Пробовал передавать без расшифровки тоже, что и принял все нормально работает. клиент работает на XML Socket.
Вот пример кода на перле:
Код:
while(1){
$count = sysread(CLIENT, $data, 1024);
$cunt = unpack("A*",$data);
print $data,"\n";
$mess="rhwuf4734g3g\n";
$wrd=pack("B",$mess);
print CLIENT $wrd;
}