in reply to
What's eating all your disk space?
I want to thank you all for these valuable pieces of code. All the page is very useful.
Perhaps, it could help others if I show the way I used it. (based on the main node)
##[ my_df.sh ]##
du -sk . * .* | perl -e ' ## ADDED .files
($size, $inode) =split;
$inode .= "/" if (-d $inode); ## /_SHOW SIZE IN Kb + GRAPHIC: _\
printf("%25s | %4d Kb |%6.2f%% [%+11s]\n",$inode,int($size/1024),$
+size/$sum*100,"<".("=" x (int($size/$sum*10)))) unless ($inode=~/\.\.
## EVERY LINE LOOKS LIKE THIS:
## Documents/ | 710 Kb | 52.20% [ <=====]
}'| sort -rn -k 3 | head | xmessage -center -file -
The output would show in an xmessage screen (come on, burn me). But it could work well with a TK one, as well as with the full perl way of doing it all, who doubts that :) .