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

hello perl friends , I want to know if there is a way through perl to find out the size of a file in kilobytes thank you friends

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]
      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]

Back to Seekers of Perl Wisdom