Ограничение размера файла

  • Автор темы redbear
  • Дата начала
R

redbear

#1
Имеется программа на PERL, обрабатывающая изображения, загружаемые пользователями. После обработки некоторые изображения имеют размер больше разрешенного.

Вопрос: как сделать в этом коде, чтобы, если отдаваемый файл больше 256 кб, скрипт выдавал сообщение об ошибке.
Ошибку необходимо выдавать после обработки, т.е. пользователь может загрузить файл любого размера, а при отдаче обработанного файла размером более 256 кб выдавалась ошибка.

Кусок кода, отвечающий за отдачу обработанного файла:

PHP:
print $buf while read(S, $buf, 262144);
Следует участь, что выполнить это действие через
PHP:
if (length($buf) > 262144) {die 'Image too big!';}
Нельзя, т.к. чтение идет через сокет и размер файла не известен до тех пор, когда не загрузиться полностью.