Forum Webscript.Ru

Программирование => Perl => Тема начата: Alexey от 24 Августа 2001, 15:43:54

Название: upload 2
Отправлено: Alexey от 24 Августа 2001, 15:43:54

Сразу извиняюся за повторение сабжа, но в пред. сабже я не нашел ответа.
Есть форма которая отсылает скрипту разные данные (в том числе и файл).
Но почему-то форма или браузер или хрен знает что, в файле меняет байты х00 на х20. И только потом отсылает.
Как с этим бороться???

Привожу пример формы:

.....

....

Название: upload 2
Отправлено: kubinets от 25 Августа 2001, 18:03:53

#!/usr/bin/perl
use CGI     qw (:standard);      
my $foto = param (\\\'foto\\\');

$foto=~/.*[\\\\/\\\\\\\\](.*\\\\..*)$/;  #получаем название
$filename=$1;                #файла без пути к нему

open (FILE,\\">$filename\\");    #открываем файл для записи
binmode FILE;                #двоичный режим (для винды,
                             #для юникса просто ничего не делает)
print FILE while(<$foto>);   #вывод в файл
close FILE;                  #закрываем файл - все :)

# все работает,
# ничего не портится!
# удачи.

[Изменено 25.8.2001 автор: kubinets]

Название: upload 2
Отправлено: Chs от 26 Августа 2001, 22:47:58

Цитировать

Но почему-то форма или браузер или хрен знает что, в файле меняет байты х00 на х20. И только потом отсылает.
Как с этим бороться???

Проблема с русским апачем, он перекодирует.
CharsetRecodeMultipartForms Off

Название: upload 2
Отправлено: от 28 Августа 2001, 11:51:40

Цитировать

Проблема с русским апачем, он перекодирует.
CharsetRecodeMultipartForms Off
 

Пасибо за подсказку, все отлично работает:D

Название: upload 2
Отправлено: paa от 21 Января 2004, 17:59:50

Цитировать

Проблема с русским апачем, он перекодирует.
CharsetRecodeMultipartForms Off

как этим можно воспользоваться если сервер удаленный ?
или как это обойти можно ?

Название: upload 2
Отправлено: Chs от 21 Января 2004, 21:58:58

.htaccess

Название: upload 2
Отправлено: paa от 22 Января 2004, 17:14:30

..
закачиваю файл:
   open F,"> $server_file";
   while ($bytes_count = read($my_file,$buff,1024)) { print F $buff; }
   close (F);

..
файл .htaccess
CharsetRecodeMultipartForms Off


..
и все равно заменяются \\x00 -> \\x20

что делать то ? -(

Название: upload 2
Отправлено: Chs от 22 Января 2004, 18:12:34

ФАК читаем?