http://www.perlmonks.org?node_id=54619


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);$% }

--
AltBlue.