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