Re: no space left?

[Ben Steeves <ben.steeves@xxxxxxxxx>]

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

-- 
Ben Steeves                     _                    bcs@xxxxxxxxxx
 The ASCII ribbon campaign     ( )            ben.steeves@xxxxxxxxx
   against HTML e-mail          X                GPG ID: 0xB3EBF1D9
http://www.metacon.ca/bcs      / \     Yahoo Messenger: ben_steeves