<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
</head>
<body bgcolor="#ffffff" text="#000000">
Thanks. I've ran the script. Here is the result of folders in "/"
partition:<br>
<blockquote><small><font face="Courier New, Courier, monospace">Dirs:<br>
4.0K misc<br>
4.0K initrd<br>
4.0K opt<br>
4.0K selinux<br>
12K mnt<br>
12K tmp<br>
16K lost+found<br>
212K root<br>
568K dev<br>
5.0M bin<br>
12M sbin<br>
57M etc<br>
76M lib<br>
195M var<br>
513M proc<br>
3.0G usr</font></small><br>
</blockquote>
There is nothing in the partition has a "G" size except the 3.0G "/usr"<br>
Doesn't seem to have anything capable to fill up a 20G partition ......<br>
<br>
<br>
<br>
Ben Steeves:
<blockquote cite="mid7ebb24d1041026051379891371@mail.gmail.com"
type="cite">
<pre wrap="">On Tue, 26 Oct 2004 11:56:26 +0800 (HKT), HaJo Schatz <a class="moz-txt-link-rfc2396E" href="mailto:hajo@hajo.net"><hajo@hajo.net></a> wrote:
</pre>
<blockquote type="cite">
<pre wrap="">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 (<a class="moz-txt-link-freetext" href="http://methylblue.com/filelight/">http://methylblue.com/filelight/</a> ). That should instantaneously
show you where your space went.
</pre>
</blockquote>
<pre wrap=""><!---->
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";
}
</pre>
</blockquote>
<br>
</body>
</html>