I want to thank you all for these valuable pieces of code. All the page is very useful.
in reply to What's eating all your disk space?
Perhaps, it could help others if I show the way I used it. (based on the main node)
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 :) .
##[ 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 -