Mega Code Archive

 

Categories / Perl / File

 

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"; }