Re: How do I recursively count file sizes in a script that works under both Windows and Linux?

in reply to How do I recursively count file sizes in a script that works under both Windows and Linux?

Here is a cross-platform way of doing it.

use strict;
my $dir = '.';
print &dir_tree_size($dir) . "\n";
exit 0;

sub dir_tree_size {
  my $dir = shift;
  my ($i,$total);
  $total = 0;
  opendir DIR, $dir;
  my @files = grep !/^\.\.?$/, readdir DIR;
  for $i (@files) {
    if(-d $i) { $total += dir_tree_size($dir . "/$i") }
    else { $total += -s $i}
  }
  return $total;
}
[download]

Crulx

Comment on Re: How do I recursively count file sizes in a script that works under both Windows and Linux? Download Code

Replies are listed 'Best First'.
Re: Answer: How do I recursively count file sizes in a script that works under both Windows and Linux? by Anonymous Monk on Sep 12, 2001 at 12:34 UTC
This always return 5333 on SuSE Linux 7.2 Kernel 2.4.4 Mark	[reply]
RE: Answer: How do I recursively count file sizes in a script that works under both Windows and Linux? by Anonymous Monk on Aug 31, 2000 at 22:09 UTC
This doesnt seem to work recursively, just counts files in the current directory, not the subdirs.	[reply]

In Section Seekers of Perl Wisdom