file size help

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: file size help by crouchingpenguin (Priest) on Jun 17, 2003 at 19:33 UTC
`my $file_name = 'file_name.png'; my $size_in_bytes = -s $file_name;` [download] cp ---- "Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."	[reply] [d/l]
Re: file size help by arthas (Hermit) on Jun 17, 2003 at 19:38 UTC
This should do what you need: `$bytes = (stat('test.jpg'))[7]; $kbytes = int($bytes/1024);` [download] As an alternative, you can use -s insstead of stat(): `$bytes = -s 'test.jpg';` [download] Michele.	[reply] [d/l] [select]
Re: Re: file size help by rob_au (Abbot) on Jun 17, 2003 at 23:27 UTC
One note which I would add to this, is that both of these functions employ the `stat()` function "under the hood" - Information returned from this call is cached such that subsequent calls to `stat`, `lstat` or the `-X` file tests employing the special filehandle consisting of a solitary underline character (`_`) can employ this cached information rather than again calling the underlying `stat()` function. This behaviour is documented in perlfunc. `perl -le 'print+unpack"N",pack"B32","00000000000000000000001001101011"'`	[reply] [d/l] [select]


We don't bite newbies here... much
	PerlMonks