Re: Disk Space used by a folder (and sub folders)

in reply to Re: Re: Disk Space used by a folder (and sub folders)
in thread Disk Space used by a folder (and sub folders)

hm, doesn't stat function exist on win32? :))

#!/usr/bin/perl -w
use strict;
use File::Find;

print "Total: ",
     GetFolderSize( defined $ARGV[0]?$ARGV[0]:'.'),
     $/;

sub GetFolderSize {
     local $% = 0;          
     find( { wanted => sub {
          local ($-,$=) = (-s,(stat)[11]);
          $%+=(int($-/$=)+($-%$=?1:0))*$=   
     }},shift);$%
}
[download]

--
AltBlue.

In Section Cool Uses for Perl