Re: no space left?

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

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";
}