Limiting File or Directory size on server 1

[MJAZ]

Is there a way so that a Perl script can check the size of a file or folder? I am wondering because file and folder size is an integral part of my website.

 

[KevinADC]

for files you can use stat() or the -s file test operator:

my $size = -s 'filename.txt';

for folders you have to add up the size of all the files or use an operating system command that will return the total size of the folder contents. There might be some modules that will also do that, I know there is for Windows:

Win32:irSize

- Kevin, perl coder unexceptional!

 

[MJAZ]

Thanks Kevin. You are always a great help .

 

[MillerH]

To determine the file size use -s. Take a moment to read all the other operators at the page as they are very useful for file operations:

http://perldoc.perl.org/perlfunc.html#Alphabetical-Listing-of-Perl-Functions

my $fileSize = -s $fileName;

To determine the size of a directory, you'll have to come up with your own definition first. Are you looking for the summation of the files immediately inside the directory, or the sum of all files in its directory tree. If the former, I would use the File::Slurp module and the read_dir function. If the later, I would use the File::Find and the find function. In either case, appropriate use of -d and -s will be all you need to come up with your sum.

http://search.cpan.org/search?query=File::Slurp

http://search.cpan.org/search?query=File::Find

 

[MJAZ]

so -s would return a value for the file size?

 

[MillerH]

From the perldoc page that I referred to:

-s File has nonzero size (returns size in bytes).