Getting the total size of a directory

[Motherofperls@aol.com]

I'm running out of web space and want to write a script that tell me the size
of certain directories so I can see where the hog is.

Can anyone give me some quick code?

[Rus Foster]

On Sun, 4 Jan 2004 [email]Motherofperls@aol.com[/email] wrote:

> I'm running out of web space and want to write a script that tell me the size
> of certain directories so I can see where the hog is.
>
> Can anyone give me some quick code?

A shell script might be even faster with du -s /tmp | sort -n

Rus

--
e: [email]support@vpscolo.com[/email]
t: 1-888-327-6330
[url]www.jvds.com[/url] - Root on your own box
[url]www.vpscolo.com[/url] - Your next hosting company

[Tim Johnson]

I think there was a very recent thread on this, but here's one way using File::Find, taking a little from a result I found by arching Google:

##################################
use File::Find;
use strict;
my $dir = $ARGV[0];
my $size;
find(sub{ -f and ( $size += -s ) }, $dir );
$size = sprintf("%.02f",$size / 1024 / 1024);
print "Directory '$dir' contains $size MB\n";
##################################

-----Original Message-----
From: [email]Motherofperls@aol.com[/email] [mailto:Motherofperls@aol.com]
Sent: Sun 1/4/2004 6:10 PM
To: [email]beginners@perl.org[/email]
Cc:
Subject: Getting the total size of a directory



I'm running out of web space and want to write a script that tell me the size
of certain directories so I can see where the hog is.

Can anyone give me some quick code?

[Randal L. Schwartz]

>>>>> "Tim" == Tim Johnson <tjohnson@sandisk.com> writes:

Tim> find(sub{ -f and ( $size += -s ) }, $dir );

Beware that -s has only a rough correlation with the actual disk a
file takes. You want (stat)[12] for that. The -s number will be far
too huge for holey files (blocks aren't allocated), and a little too
low for large files (indirect blocks).

--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!

[MacWarrior]

I got my problem solved. Thanks for this comment Tim! You're brilliant!

-MacWarrior-
-----------------------------------------------------------------------------------

I think there was a very recent thread on this, but here's one way using File::Find, taking a little from a result I found by arching Google:

##################################
use File::Find;
use strict;
my $dir = $ARGV[0];
my $size;
find(sub{ -f and ( $size += -s ) }, $dir );
$size = sprintf("%.02f",$size / 1024 / 1024);
print "Directory '$dir' contains $size MB\n";
##################################

-----Original Message-----
From: [email]Motherofperls@aol.com[/email] [mailto:Motherofperls@aol.com]
Sent: Sun 1/4/2004 6:10 PM
To: [email]beginners@perl.org[/email]
Cc:
Subject: Getting the total size of a directory

I'm running out of web space and want to write a script that tell me the size
of certain directories so I can see where the hog is.

Can anyone give me some quick code?