Offtop (binary файлы - help please)

kirill 28.07.2004 17:40

Если кому-нибудь несложно, подскажите решение. Задача - загрузка бинарных файлов. В $request:body получаем бинарник image.gif, Content-length задан. Парсер не умеет сохранять бинарные данные из request:body. Видимо нужно использовать perl, ^file::exec[save.pl;$.stdin[$request:body]]. Вопрос - текст скрипта Perl, который сохранит даные в binary.
Код
open(FILE, "> $path") or die $!;
binmode(GIF); binmode(STDIN);
read(STDIN, $buff, $ENV{'CONTENT_LENGTH'});
print FILE $buff; close(FILE);
не работает.

Очень буду признателен за ответ или предложение, как другим путем сохранить POST binary, зная CONTENT-LENGTH. Задать правильный формат в POST-запросе и использовать ^form:name.save[binary;...] по ряду причин затруднительно.

---