|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Anton Tkachev 2:461/32.32 01 Dec 2003 10:48:31
To : All
Subject : Upload file - лишний байт
--------------------------------------------------------------------------------
Веб-сервер - Apache/1.3.20 (Win32)
Пытаюсь сделать закачку файлов. Вот код формы:
<HTML><HEAD></HEAD><BODY>
<form action='/cgi-bin/upl.cgi' enctype='multipart/form-data'
method='post'>
<input type='file' name='f'>
<input type='submit' value='Send'>
</form>
</BODY></HTML>
Вот код самого скрипта:
#!c:/perl/bin/perl
use CGI;
$dir = "/upload";
$query = new CGI;
$f = $query->param("f");
$f =~ s/.*[\/\\](.*)/$1/;
$upl = $query->upload("f");
open UPLOADFILE, ">$dir/$f";
while ( <$upl> ) {
print UPLOADFILE; }
close UPLOADFILE;
print $query->header ( );
print 'Thanks'
Файл заливает, но не корректно. Hапример, при попытке залить текстовый файл
из двух байт 0x0D и 0x0A получаю файл из трех байт 0x0D, 0x0D и 0x0A.
При попытке послать файл из одного байта 0x0A (LF) Получаем два 0x0D и 0x0A.
При попытке послать файл из одного байта 0x0D. Получаем один 0x0D.
Понятно, что во всех заливаемых файлах появляется 0x0D перед каждым 0x0A,
что существенно портит присылаемые файлы.
В чем дело? Как бороться?
Большое спасибо.
Всего хорошего.
Понедельник, Декабрь 01 2003 Ant.
--- ifmail v.2.15dev5.1
* Origin: Мы всегда получаем то, что заслуживаем... (2:461/32.32)
Вернуться к списку тем, сортированных по:
| Тема: |
Автор: |
Дата: |
|
Upload file - лишний байт |
Anton Tkachev |
01 Dec 2003 10:48:31 |
 Re: Upload file - лишний байт |
Sergey Gernichenko |
02 Dec 2003 09:51:38 |
|
|
