Get the file size : stat « File « Perl






  1. Perl
  2. File
  3. stat

Get the file size

     

#!/usr/bin/perl
use warnings;
use strict;

use File::stat;

my $filename = "data.txt";
if (my $stat = stat $filename) {
    print "'$filename' is ", $stat->size,
          " bytes and occupies ", $stat->blksize * $stat->blocks,
          " bytes of disc space \n";
} else {
    print "Cannot stat $filename: $| \n";
}








Related examples in the same category

1.Getting Information on a File
2.Get return value from stat function
3.Get the length of a file
4.File statistics returned from the stat command
5.File stats
6.Checks the permissions of a file
7.Call stat function from file handle
8.Lists files in directory; then gets info on files with stat
9.The stat Function for Windows NT File Attributes