VPF::Бьются файлы при закачки с сервера

shootnix

Дата 22.5.2008, 17:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 3.9.2005
Где: Казахстан

Репутация: нет
Всего: 2

Приветствую. Проблема, похоже, мистическая smile

Суть: на сервере имеется хранилище файлов, все они — zip-архивы. Пользователь скачивает любой файл, который захочет, через скрипт. Иными словами, существует скрипт, который все эти файлы раздает.
На входе zip-ы целые, открываются, распаковываются. На выходе, при сохранении скачанного файла, происходит следующее: архив выглядит вполне целым, весит столько же и содержит ту же структуру. Однако, при попытке его распаковать, архиватор ругается на неожиданный конец архива. То есть, файл каким-то каком или недокачивается, или перекачивается (добавляются левые символы?)
Вот код Perl, с помощью которого отдаю файл пользователю:

Код


print "Content-Disposition: attachment; filename=$file-{name}\n";
print "Content-Length: $file->{size}\n";
print "Content-Type: application/x-force-download; name=\"$file->{name}\"\n\n";

open my $fd, "files/$file->{descriptor}.zip";
binmode( $fd );
print while( <$fd> );
close $fd;

Ткните носом, плиз, очень нужно!

Добавлено через 2 минуты и 11 секунд
Да, забыл добавить, что binmode( $fd ) уже пробовал убрать, но проблему это не решило.

ginnie

Дата 22.5.2008, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 4
Всего: 49

shootnix, советую сделать diff на пару файлов, чтобы узнать, в чем они не совпадают.

Может еще попробовать binmode(STDOUT)?

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

KSURi

Дата 22.5.2008, 17:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 2
Всего: 27

Попробуйте заменить

Цитата(shootnix @ 22.5.2008, 17:44

)

Код

binmode( $fd );

на

Код


binmode STDOUT

Добавлено через 14 секунд
опоздал)

--------------------

Died at Life.pl line 21

shootnix

Дата 22.5.2008, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 3.9.2005
Где: Казахстан

Репутация: нет
Всего: 2

Попробовал. Ничего существенного не изменилось. Только тормозить стал.
Недокачивается последние несколько байт файла, может, даже последний байт вообще. В остальном, файлы идентичные.
На сервере тоже граблей не обнаружено, запускал на локальном под Виндовз и на удаленном под Линукс.

Это сообщение отредактировал(а) shootnix - 22.5.2008, 18:12

ginnie

Дата 22.5.2008, 18:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 4
Всего: 49

shootnix, я бы сделал следующее:

Код


my $output = '';
while(<$fd>) {
    $output .= $_;
}
warn $file->{size},' : ', length($output);
print $output;

если размер совпадает, дело явно не в скрипте.

Добавлено через 9 минут и 20 секунд
В бинарный режим надо переводить оба потока:

Код


binmode($fd);
binmode(STDOUT);

--------------------

shootnix

Дата 22.5.2008, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 3.9.2005
Где: Казахстан

Репутация: нет
Всего: 2

Точно

Оба потока! Спасибо, все работает smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »