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

Тема в разделе "Perl программирование", создана пользователем redbear, 5 май 2010.

  1. redbear

    redbear Гость

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

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

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

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

Поделиться этой страницей