[ILUG] Room

[Rick Moen]

Quoting Rafael Muñoz Moreno Davila (rmmd at t-d-e.org):

> I have a problem with the room on one of my partitions, I don't anough
> much room left. How can I know what takes the more room and clean it
> so it can continue working normaly?

My personal favourite:

Create this as /usr/local/bin/largest20, and do "chmod u+x" on it.


#!/usr/bin/perl -w
# You can alternatively just do:  
# find . -xdev -type f -print | du -sk `ls -A` | sort -nr | head -20
use File::Find;

@ARGV = $ENV{ PWD } unless @ARGV;
find ( sub { $size{ $File::Find::name } = -s if -f; }, @ARGV );
@sorted = sort { $size{ $b } <=> $size{ $a } } keys %size;
splice @sorted, 20 if @sorted > 20;
printf "%10d %s\n", $size{$_}, $_ for @sorted