How can I determine the size of a file?

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question: ⭐ (files)

Replies are listed 'Best First'.
Re: How can I determine the size of a file?⭐ by fundflow (Chaplain) on Sep 25, 2000 at 20:18 UTC
`$size=-s "$filename";` [download]	[reply] [d/l]
Re: How can I determine the size of a file? by BastardOperator (Monk) on Sep 25, 2000 at 19:55 UTC
I'm guessing that you wanted to do this from a cgi, right? Assuming that the file is: A) within the chroot jail made by Apache B) readable by the user you can do something like `my $file = "some/file"; # relative path within chroot my $fsize = (stat($file))[7]; # in bytes` [download] <!- Added CODE tags, changed title (turnstep) -->	[reply] [d/l]
Re: How can I determine the size of a file? by phenom (Chaplain) on Jun 23, 2004 at 00:46 UTC
Although it's the same difference, if you want to use a module, try File::stat. `#!/usr/bin/perl use strict; use warnings; use File::stat; my $file = shift; my $st = stat($file); my $size = $st->size; print $size, "KB";` [download]	[reply] [d/l]