Thanks. I've ran the script. Here is the result of folders in "/"
partition:
Dirs:
4.0K misc
4.0K initrd
4.0K opt
4.0K selinux
12K mnt
12K tmp
16K lost+found
212K root
568K dev
5.0M bin
12M sbin
57M etc
76M lib
195M var
513M proc
3.0G usr
There is nothing in the partition has a "G" size except the 3.0G "/usr"
Doesn't seem to have anything capable to fill up a 20G partition ......
Ben Steeves:
On Tue, 26 Oct 2004 11:56:26 +0800 (HKT), HaJo Schatz <hajo@xxxxxxxx> wrote:
Had this issue once and found it too tedious to try and run through my
whole fs with du. Since then, I keep a graphical util handy. Try eg
filelight (http://methylblue.com/filelight/ ). That should instantaneously
show you where your space went.
Share and enjoy (and no comments on the lazy programming -- I banged
this together quickly):
#!/usr/bin/perl
open DU,"du -sh * |" or die;
while (<DU>) {
chomp;
($size, $file) = split /\s+/,$_,2;
if ($size =~ /([0-9\.]+)([k|M|G])/) { $num = $1; $mod = $2; }
else { $num = $size; $mod = 1; }
if ($mod eq '1') { $num = $num * 1; }
if ($mod eq 'k') { $num = $num * 1000; }
if ($mod eq 'M') { $num = $num * 1000000; }
if ($mod eq 'G') { $num = $num * 1000000000; }
if (-d $file) { $dirs{"$num|$size|$file"} = 1; }
else { $files{"$num|$size|$file"} = 1; }
}
close DU;
print "Files:\n";
foreach (sort {$a <=> $b} keys %files) {
($num, $size, $file) = split /\|/,$_,3;
print "$size\t$file\n";
}
print "Dirs:\n";
foreach (sort {$a <=> $b} keys %dirs) {
($num, $size, $file) = split /\|/,$_,3;
print "$size\t$file\n";
}
|
Attachment:
smime.p7s
Description: S/MIME Cryptographic Signature
