Calculate size of all files in a Directory

[vasu1308]

Hi ,
Can anyone help me in finding the number of files and their size in Directory.

[miller]

You simply need to read in the contents of the directory and add up the size of each of the files. Pertinent documentation can be found here:

http://perldoc.perl.org/functions/readdir.html - read in the files
http://perldoc.perl.org/functions/-X.html - obtain the size of the file
http://perldoc.perl.org/functions/stat.html - alternate method for file size.

[KevinADC]

I find stuff like this easier to do with a shell command but if it needs to be portable then use the File::Find module or write your own function to recurse directories and add up the file sizes. You can use the -s file test operator to get the size.

[docsnyder]

Hi ,
Can anyone help me in finding the number of files and their size in Directory.

You do not even need a module:

sub dirSize {
  my($dir)  = @_;
  my($size) = 0;
  my($fd);
 
  opendir($fd, $dir) or die "$!";
 
  for my $item ( readdir($fd) ) {
    next if ( $item =~ /^\.\.?$/ );
 
    my($path) = "$dir/$item";
 
    $size += ((-d $path) ? dirSize($path) : (-f $path ? (stat($path))[7] : 0));
  }
 
  closedir($fd);
 
  return($size);
}
 

Greetz, Doc