How can I get the file size in Perl before processing the download request?

Question

I want to get the file size. I'm doing it:

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

But it does not work. Please note that I did not upload the file. I want to check its size before downloading it. Therefore, to limit it to 1 MB.

Answer 1

- . Content-Length, , . , . , Content-Length , , . , .

, , CGI, $ENV{CONTENT_LENGTH}.

Answer 2

, , - ( perldoc CGI):

$CGI::POST_MAX

, POST, . CGI.pm POST, , . POST POST, , . , 1 .

Answer 3

tmp , .

$.

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

Answer 4

Perl.

, , Perl.

, , , , .

, .

Answer 5

, , -, . , - , Flash, Flash, , ( ) .

YUI Uploader. : JavaScript/Flash ?

, , , , .

Answer 6

; , $filesize = (-s $filename); , - , Ajax, . , . , , . .

Answer 7

, , , . , .

Answer 8

perl - X - perldoc.perl.org stat-perldoc.perl.org. , script, , .