Как я могу получить размер файла в Perl перед обработкой запроса на загрузку?

Question

Я хочу, чтобы получить размер файла, что я делаю это:

my $filename=$query->param("upload_file"); 
my $filesize = (-s $filename); 
print "Size: $filesize ";` 

Тем не менее он не работает. Обратите внимание, что я не загружал файл. Я хочу проверить его размер перед его загрузкой. Таким образом, чтобы ограничить его до 1 МБ.

Answer 1

Вы не можете узнать размер чего-либо перед загрузкой. Но вы можете проверить заголовок запроса , отправленный браузером, если таковой имеется. Затем вы можете решить, хотите ли вы поверить в это. Заметим, что Content-Length будет длиной всего потока запросов, включая другие поля формы, а не только сама загрузка файла. Но этого достаточно, чтобы привлечь внимание к партнерам.

Поскольку вы, кажется, работаете под простым CGI, вы должны иметь возможность получить длину тела запроса в $ENV{CONTENT_LENGTH}.

Answer 2

Посмотрите документацию по perl для статистики файлов -X - perldoc.perl.org и stat-perldoc.perl.org. Кроме того, вы можете посмотреть на этот upload script, который делает то же самое, что вы пытаетесь сделать.

Answer 3

Также хочу проверки вменяемости против, возможно, уже имея после максимального набора (от perldoc CGI):

$CGI::POST_MAX

Если установлено значение неотрицательного целого числа, эта переменная помещает потолок размера POST, в байтах. Если CGI.pm обнаруживает POST, который больше потолка, , он немедленно выйдет с сообщением об ошибке. Это значение будет влиять на обычные POST-адреса и многостраничные POST, что означает, что он ограничивает максимальный размер загружаемых файлов . Вы должны установить это значение с достаточно высоким значением, например 1 мегабайт.

Answer 4

Это не имеет никакого отношения к Perl.

Вы пытаетесь прочитать размер файла на компьютере пользователя, используя команды, которые читают файлы на вашем сервере, что вы не можете сделать с помощью Perl.

Это что-то, что нужно сделать в браузере, и ненадолго глядя на these questions, это либо очень сложно, либо невозможно.

Ваш лучший выбор - позволить пользователю начать загрузку и прервать, если файл слишком большой.

Answer 5

Если вы хотите проверить, прежде чем обрабатывать запрос, вам может быть лучше проверить веб-страницу, которая инициирует запрос. Я не думаю, что веб-браузер может сделать это сам по себе, но если вы не возражаете против Flash, есть много инструментов загрузки Flash, которые могут проверять такие вещи, как размер (а также типы файлов) и предотвращать загрузку.

Хорошим началом является YUI Uploader. Больше здесь: What is the best multiple file JavaScript/Flash file uploader?

Очевидно, что вы также захотите проверить на стороне сервера, но к тому времени, когда пользователь начал отправлять запрос на сервер, вы уже используете свои циклы процессора и пропускную способность.

Answer 6

Спасибо всем за ваши ответы; Я только выяснил, почему $filesize = (-s $filename); не работал раньше, из-за того, что я проверял размер файла при отправке запроса Ajax, а не при повторном представлении страницы. Вот почему у меня был размер, равный нулю. Я исправил это, чтобы отправить страницу, и она сработала. Благодарю.

Answer 7

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

Answer 8

Загруженный файл спрятан в месте tmp на сервере при отправке формы, проверьте размер файла там.

Поставьте значение для $ field.

my $upload_filehandle = $query->upload($field); 
my $tmpfilename = $query->tmpFileName($upload_filehandle); 
my $file_size = (-s $tmpfilename);