VPF::Ограничение размера файла - Форум программистов

redbear

Дата 6.5.2010, 20:07 (ссылка)

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

Загрузка ...

Новичок

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

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

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

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

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

Код


print $buf while read(S, $buf, 262144);

Следует участь, что выполнить это действие через

Код


if (length($buf) > 262144) {die 'Image too big!';}

нельзя, т.к. чтение идет через сокет и размер файла не известен до тех пор, когда не загрузиться полностью.

arto

Дата 6.5.2010, 20:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

perldoc -f read
...
Attempts to read LENGTH characters of data into variable SCALAR from the specified
FILEHANDLE. Returns the number of characters actually read, 0 at end of file, or undef if
there was an error

klem4

Дата 6.5.2010, 21:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

Так не пойдет ?

Код


read(S, $buf, 262144);
die "file is too large" if read(S, $buf, 1);
print $buf;

Добавлено через 1 минуту и 46 секунд
или просто прочитать на 1 байт больше, и в случае удачи выдать сообщение об ошибке.

Это сообщение отредактировал(а) klem4 - 6.5.2010, 21:07

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