|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Mihail Popov 2:4653/10.45 25 Apr 2006 21:18:00
To : All
Subject : Вопросец
--------------------------------------------------------------------------------
Hикак не могу побороть следующее явление. При передаче файла из формы
типа multipart/form-data он получается с искажениями. Вот кусок из формы :
<FORM method="POST" enctype="multipart/form-data">
<input type="file" name="fbut" size="39">
</FORM>
А вот кусок из скрипта :
use CGI;
if ($ENV{'REQUEST_METHOD'} eq "POST") {
$query = new CGI();
$filename = $query->param('fbut');
open (OUTFILE,">>file.gif");
while ($bytesread=read($filename,$buffer,1024)) {
print OUTFILE $buffer;
}
close OUTFILE;
}
В результате получается файл, в котором перед каждым байтом со
значением (шестнадцатиричный код) 0A добавлен байт со значением
0D. За время поиска было заменено все, что можно - все железо на
компе, пробовал разные операционки (Win98,WinME,WinXP), заменены
все программы (сейчас используется Apache 2.0.48 win32 x86,
ActivePerl 5.6.1.638), но результат всегда был одинаковый. Ткните
меня, куда копать, только не нужно говорить "Кури доку", уже
обкурился, может, что-то не вижу...
С уважением, Mihail.
---
* Origin: Hаше кредо: Всегда. (2:4653/10.45)
Вернуться к списку тем, сортированных по:
|
